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For Easy Use! 


Fast Flexible Information 

MAPS™ IS FRESH! It's the ideal decision 
support software product for today’s financial 
manager. With MAPS you get fast, fresh, 
flexible information handling the moment you 
want it. Plans, forecasts, models, reports can 
all be created and manipulated right in your 
own department. Changes that affect your 
company can be reflected and evaluated on 
the spot. And best of all, MAPS is canned 
for easy use! Call Ross Systems right now. 
Ask for a demonstration of MAPS. You’ll 
be amazed what a little fresh decision 
support can do. Currently available on 
worldwide timesharing, or purchase for 
DEC’S,* RSTS/E and VMS operating 
systems. Contact Ross Systems for 
more information today. 

^ * DEC is a trademark of 

Digital Equipment Corporation 

ross systems 


1800 Embarcadero Road 
Palo Alto, CA 94303 
(415) 856-1100 


MAPS meets your daily 


requirements: 

Financial reports.100% 

Financial planning.100% 

Consolidations .100% 

Financial modeling.100% 

Performance forecasts.100% 

Full color graphics.100% 


“Now that's fresh decision support” 


Regional offices: New York, 
Dallas, San Francisco, Los Angeles 
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You need maximum performance and minimum downtime from 
your printer. So, don't add-on just a machine. Add-on the 
unmatched printer expertise of Southern Systems, recognized by 
users as the leader in printer systems, from technological 
innovation through installation to the long-term service you need. 

In more than 4,000 installations, Southern Systems has proven 
it's the best source for printer systems from 200 to 2,000 Ipm. 
Printer systems that are guaranteed compatible with your computer. 
Printers that are serviced by SSI specialists nationwide. Printers 
that work for you at less cost than any other printer source can offer. 

Add-on a Southern Systems printer system and you add-on 
Southern Systems. Just ask our customers. 


Tell me about your printers from: 
□ 200-300 Ipm 
CD 600—900 Ipm 
CD 1000 plus Ipm 

My computer system is_ 

Name_ 

Title_ 



Southern Systems 

The Printer System Problem-Solvers. 

2841 Cypress Creek Road, Fort Lauderdale, Florida 33309 
(305) 979-1000; (800) 327-5602; Telex 522135 


Company_ 

Address_ 

City_State_Zip. 


Telephone. 


CW 
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SOFTWARE 


LinkUp Whenever You Like. When 
you run the program CONTRL at your 
terminal you may elect to capture and 
link up with any keyboard on the sys¬ 
tem. CONTRL performs the link re¬ 
quested immediately. There is no in¬ 
terruption to the user’s task. It makes 
no difference what the user may be 
doing. The user may be in mid-key- 
stroke or logged off the system. The 
user’s keyboard may even be turned 
off. 

Link Is Invisible to the User. The 

linking process is invisible to the user. 
Except on a heavily loaded system the 
user will not notice so much as a 
hesitation from one keystroke to the 
next when the link up takes place. In 
fact, an inspection of job status will 
appear normal to the user. 

Do Remote User Training. When a 
new procedure or application is put 
onto your system, CONTRL may be 
used to do remote training. The user 
logs onto the system and then calls you 
by telephone. You run CONTRL at 
your terminal. While speaking to the 
user you link up with the user’s key¬ 
board. Now you walk the user through 
the new procedures while you watch at 
your screen. Each user keystroke to¬ 
gether with the system’s responses is 
presented to your terminal. 

Interact for Remote User Sup¬ 
port. With CONTRL you may interact 
with the user. Anything you do at your 
keyboard after linking with the user is 
as though you did it at the user’s key¬ 
board. When a user calls you with a 
question or concern about his job you 
may link up and give assistance di¬ 
rectly from your keyboard. 

Provide Remote Demonstra¬ 
tions. If you need to demonstrate an 
application to a remote group, 
CONTRL will solve the problem. 


CONTRL 


LINK YOUR TERMINAL TO 
ANY KEYBOARD ON THE 
SYSTEM FOR: 


USER TRAINING AND 
SUPPORT 


DYNAMIC SECURITY 


REMOTE DEMONSTRATIONS 


Don’t pay the travel costs to get your 
team together with their team to see 
some programs run. Consider what 
many are now doing with CONTRL. 
The application review team gets to¬ 
gether at their own site. They gather 
around a terminal that is logged into 
your system. Then they call you on the 
telephone. Most often they will use a 
speaker phone. As you exercise the 
application at your terminal they see 
everything at their remote screen. If 
you wish, they may be instructed to 
interact with the application them¬ 
selves. This serves to convey the dy¬ 
namic nature of your demonstration, 
while involving your listeners. 

Inspect User Activity. CONTRL al¬ 
lows you to inspect a user’s activity on 
the system. It is often necessary for 
management to observe training effec¬ 
tiveness among their clerical person¬ 
nel. With CONTRL a clerk’s grasp of 
an application can be observed un- 
intrusively. 

Do Dynamic System Security. The 

inappropriate, unwise, and covert use 
of your system can be monitored. Ex¬ 
perience with CONTRL in this area 
indicates that knowledge of its exis¬ 
tence on the system and its potential 
for invisible use on selected keyboards 
is an effective threat to covert users. 


For inappropriate and unwise use of 
the system, CONTRL gives manage¬ 
ment a means for taking specific cor¬ 
rective action. 

Keep a Log File of the Activity. 

This is well worth noting. A complete 
log file of the user activity is kept by 
CONTRL. Every keystroke entered 
at either your keyboard or the user’s 
keyboard goes to the log file together 
with every response from the system. 
The session in its entirety is captured. 
The keystrokes are underlined to dis¬ 
tinguish the user from the system 
when the log file is played back. 

Release Link Whenever You Like. 

The link can be released immediately 
and at any time. Releasing CONTRL 
has no effect whatever on the user’s 
job. The user may be in mid-keystroke 
or logged off. The user’s terminal may 
even be turned off when the keyboard 
is released. 

Some of the CONTRL Options. 

You may get a log file or elect to turn it 
off. You may disable the user’s key¬ 
board or prevent output from the us¬ 
er’s job from going back to the user’s 
screen. CONTRL gets its name from 
being in control of the linked keyboard. 
Everything that moves between the 
user’s keyboard and the system goes 
through CONTRL. 


Clyde 

How to Get More Information. 
Call Janet at (617) 275-6642, or write: 
Clyde Digital Systems, Inc., P.O. 
Box 348, Bedford, MA 01730. 
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From the editors. . . 


IS IT REALLY FAIR? 

Carl Marbach 

The late Chief Justice Earl Warren of 
the United States Supreme court would 
sometimes stop an eloquent argument from 
an attorney at the bar with a wave of his 
hand, “Yes, yes, yes”, he would say, "but is 
it really fair?" Sometimes all the rational ar¬ 
guments in the world don’t suffice when 
people are at stake. My question to DEC is, 
"why are you leaving your loyal PDP-11 
people alone at the top? What do I do now 
that the 11 /70 is going to be gone?" And 
they reply, "Go VAX young man". 

I attended a meeting recently with a 
major OEM and DEC people discussing the 
subject of what do they sell now that they 
won’t be able to get 11 /70s after next sum¬ 
mer. The OEM hunched up his shoulders, 
gruummpffed a few times, took a deep 
breath and said, "now let me get this 
straight: 1 can expect 80% of the perfor¬ 
mance, 120% of the price, a lower discount 
schedule, and I must make a major soft¬ 
ware conversion to VAX-11 BASIC." He was 
comparing 11 /70s to a VAX 11 /780. It is 
also true that he runs more than one 11 /70 
with 120+ terminals, and doesn’t think 
that 96 terminals is unusual for his soft¬ 
ware on the “70". The VAX SPD only admits 
to 96 terminals and with DZ’s we know it 
will be character bound. 

Memory is getting very cheap. Com¬ 
puters have more bang for the buck. Pack¬ 
aging has improved and downtime is less 
and less frequent. Programmers make more 
money than ever and are harder to find. 
Software is now a larger investment on 
most machines than the machine itself. All 
this argues for an environment where pro¬ 
grammer time and effort are spent in the 
most productive way; Building co-trees and 
overlays to fit into the 16 bit addressing 
space is inefficient use of their expensive 
time. 32 bits solve lots of problems. The op¬ 
erating system can be more complex(?) and 
do more for the user. Languages can be com¬ 
piled faster and optimized more into native 
mode rather than the 16 bit "threaded 
code". Programmer space limitations be¬ 
comes a thing of the past. All in all 32 bits 
beat the devil out of 16 bits. 

Despite all these facts, there are many 
people and small businesses out in PDP-land 
with large investments in hardware and 
software. It really is a “bet your business" 
move when you marry a computer. OEMs, 
software houses and bureaus are now re¬ 
quired to shoulder a heavy burden in mov¬ 
ing to the 32 bit VAX. Wouldn’t it have been 
better if we had been given a good migra¬ 
tion tool rather than the it’s easy to convert 


to VAX BASIC and RMS’ panacea that has 
been handed us. Shouldn’t we be treated to 
a product that fills the needs of an estab¬ 
lished user base, instead of being forced into 
a world we don’t need or may not want. Are 
we really to accept 80% of the perfor¬ 
mance. 120% of the price and less attrac¬ 
tive terms? I know. 32 bits and VAX makes 
a lot of business sense to DEC; and 32 bits is 
the wave of the future. Yes, Yes. Yes; but is 
it really fair? 


SOFTWARE SOUP 

Dave Mallery 

Recently, I wrote an editorial praising 
two software packages that I had bought 
and especially liked. Overnight, I was quoted 
in ads in every computer journal under the 
sun. I never realized the power of my 
‘speechlessness’! 

I have recently experienced another 
fallout’ from that editorial. It seems that 
every nascent software house in the world 
wants me to have a free home demonstra¬ 
tion of their product in hopes that I will also 
recommend their product. 

Obviously, this is not what I had in 
mind. 

There are two reasons why I can’t be 
everyone's beta test. First. I am very busy. 
Second, I am also an author and seller of 
software (under another hat). 

So. once and for all, a policy on soft¬ 
ware editorializing in the RSTS Pro: 

1) We will review anything and 
everything. 

2) We will review only what we have 
bought. 

3) We don’t want any free home 
demonstrations. 

Another major area of concern. We 
publish a LOT of programs. We even make 
the sources available on magtape. We are a 
little magazine, not a three billion dollar 
computer company. 

ALL PROGRAMS PUBLISHED IN THE 
RSTS PROFESSIONAL ARE WARRANTEED 
TO PERFORM NO USEFUL FUNCTION. THEY 
ARE GUARANTEED TO CONTAIN BUGS. 
THEY ARE DESIGNED TO GET YOU OFF 
YOUR BUTT AND THINKING. THEY ARE IN¬ 
TENDED TO EDUCATE AND ENTERTAIN. 
THEY ARE PUBLISHED ON THE PREMISE 
THAT IT IS BETTER TO SPREAD PEOPLES’ 
BEST EFFORTS AROUND EVEN IF THERE IS 
AN OCCASIONAL PROBLEM. IF YOU USE 
THEM. MAKE THEM YOUR OWN. AND YOU 
WILL NOT GO WRONG. IF YOU WANT 
CLASS A’ SOFTWARE SUPPORT, GO PAY 
DEC SIXTY FIVE DOLLARS AN HOUR. 

I hate to sound so clear, but I have had 
it with complaints. 

See y’all in Atlanta! f 
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DMG/NET provides RSTS/E 
users with easy access to packet- 
switched (X.25) networks. It 
permits two-way file transfer and 
interactive dialogue with other 
RSTS/E systems and locally initia¬ 
ted communication with non- 
RSTS/E systems. From a RSTS/E 
host to other RSTS/E computers, 
to other DEC computers, even to 
non-DEC computers.. communi¬ 
cation is quick, simple and 
extremely inexpensive. 



No matter how large or how 
small your RSTS/E system is, 
DMG/NET can substantially re¬ 
duce communication costs by 
utilizing packet-switched (X.25) 
networks. With DMG/NET you can 
save up to 90% of your cost of 
communication, compared to 
“dial-up” or leased lines. 


EASY TO USE 

Even a non-technical 
person can access the entire 
communication network quickly 
and easily with DMG/NET There 
is no need to memorize a long 
series of network codes, numbers 
and procedures. Instead, a user 
accesses a remote database with 
only the familiar local sign-on and 
a short, easily remembered identi¬ 
fication code...DMG/NET does 
the rest. 

What’s more, DMG/NET 
allows any locally connected ter¬ 
minal to access any specified 
remote database, eliminating the 
need for separate terminals, com¬ 
plicated switch boxes or terminal 
setting changes. 

To find out how DMG/NET 
can meet your RSTS/E network- 
ing needs, contact Digital 
Management Group Ltd. 



RSTS/E and DEC are registered trademarks of Digital Equipment Corporation 
DMG NET is a registered trademark of Digital Management Group Ltd 



Digital Management Group Ltd. 

4800 Yonge Street, Willowdale, Ontario, Canada M2N 6G5 
Telephone: (416) 225-7788 
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LETTERS to the RSTS Pro... 


Send letters to: Letters to the RSTS Pro. P.O. Box 
361. Ft. Washington. PA 19034-0361. 


Nice magazine! Keep up the good work. I’d like 
to comment on the “Top-down" article on p.8 in 
the Dec. 1981 issue. I make a living rewriting and 
reworking systems that are designed by people who 
think there is just ONE way to properly implement. 
I’ve rewritten beautifully structured code and 
achieved speed improvements of 20 times. Were I 
to utilize ALL of the structure rules that I learned 
in college, 1 would be cranking out code that ran 
slow, overlayed too much, and was bigger than 
necessary. Structured design is a tool; but, as with 
all tools, if it isn’t used wisely, it can't be used to 
create a masterpiece. 

Steve Roy, Diversified Consulting Co. 

Bloomfield, CT 06002-0284 

If you clowns think I’m going to pay a 75% rate 
increase, you’re crazy. N.D. Harris, IN 

Look closer. Dale. Our rate has gone DOWN. We 
increased the number of publications per year not 
the cost per issue. Old rate: $25. for 4 ($6.25 each): 
New rate: $55. for 6 ($5.83 each). That’s a 7% 
DECREASE. Cotn’on back! 


I recently got myself a subscription to your 
wonderful magazine. Each new copy gives me a 
few' hours of pleasant reading and contains a lot of 
valuable information. 

The December ’81 issue however, contained at 
least two errors. One of them could be serious the 
other one makes me wonder where the author of 
the article did his writing. 

On p. 81 David Leffen w rote that memory has to 
lie physically between the CPU and the Able 
Cache 434. This is exactly where the memory 
should not be. 

The Able CACHE memorv’s have to be installed 
BETWEEN the CPU and the MEMORY it has to 
cache. Normally the 434 will replace the jumper 
between the CPU-backplane and the next back¬ 
plane. AH memory can then be installed in the 
second backplane. The CPU-backplane can be 
used for simple I Odevices like DL-I I’s. p.t. equip¬ 
ment and the like. DMA devices should follow' the 
memory's. 

Ten years of experience w ith PDP I I’s gives me 
the following preference: 

First CPU plus attached boards 

Then Simple I O devices (non DMA) 

If applicable : External cache memory’s (like 
the Able 434) 

Always All memory 

Followed by : Fast DMA devices 
And last of all: Slow DMA devices 

And keep the bus as short as possible. A good 
system will even run without any problem with a 
DC bus-load of more than 20. 

On page 16. the right hand column 8 lines from 
the bottom. Michael Schwartz states that a data 
encryption utility should be available for use in 
BATH. I wonder why. Is he afraid of spying subma¬ 
rine’s circling underneath the water surface in his 
tub? Does he store confidential information dis¬ 
guised as tooth paste or do we need plumbers for 
maintenance on these utilities? On reflection the 
above opens complete new uncovered grounds for 
research. 

Keep up the good work! 

Jan Willem Brier, Datacare B.V. 

3700 AA Zeist, The Netherlands 


Dear Dave and Carl. 

Thank you for your kindness in dedicating your 
February, 1982 issue to me. Besides expressing my 
heartfelt appreciation for your act of friendship, I 


must tell you that I want to share this recognition 
with the “RSTS Team", to whom the credit must 
belong. 

I speak not only of legendary superstars such as 
Mark Bramhall and Anton Chernoff. To name but 
a few, Jim Miller, Jim “Wooly” Wooldridge, 
Nancy Covitz, Joe Mulvey, Mark Goodrich, Rich 
Witek, Steve Morris, Bill Noyce, Jim Condict, 
Andy Riebs and Bill Sconce are among the scores 
of competent professionals 1 have had the privilege 
of working beside over the years. And I speak not 
only of the software engineers (more familiarly 
known as “developers”), but also of the writers, 
who are the unsung hero(in)es, as well as Software 
Support specialists such as Martin Minow, my out¬ 
spoken “conscience.” 

Equally important, it was my pleasure to have 
met hundreds of users, talked to and listened to 
them. Some of them, symposia coordinators, SIG 
chairmen and other leaders, I grew to know better 
than others as we worked together, but the collec¬ 
tive experience of interacting with the entire com¬ 
munity of the RSTS SIG has been most 
educational to me. I thank them all. 

Lastly, I would like to reciprocate by wishing 
you and your readers continued success with 
RSTS, as I am sure you will have. And whatever I 
am working on, RSTS will always be close to my 
heart. Yours sincerely, Simon Szeto 

Thanks again. Simon, you are a real "gentleman 
and scholar" from tip to toe. Just to make sure that 
RSTS will stay close to you, we would like to grant 
you a lifetime subscription to the RSTS PRO. 
Therefore, we are returning your subscription 
check to you. You might notice RSTS right here: 
Your own DEC credit union, on which this check is 
drawn, uses RSTS. Why. RSTS wrote this check! 
Of course, they are moving to TAX. 

Please keep in touch and maybe even be our 
“ conscience’’. Carl and Dave 

Many thanks to you and Paul R. Laba for his 
fine article on FI P’s Alignment Algorithm (Sept. 
’81). This undocumented design feature has bitten 
me several times. Please note: If you have a disk 
giving “Bad Directory for Device” errors which the 
various CLEAN’s won’t fix, there is a good chance 
that the FIP Alignment Algorithm is the problem. 
It does seem like DEC could at least report these 
alignment problems as errors in the CLEAN’s. 

CD 



Your magazine has proven so valuable that my 
copies are disappearing! I need replacement copies 
of several issues. 

Thanks, John W. Nunnally, Director 
Administrative Computing. Harding University 
Your copies are on the way. John. Thanks for the 
cartoon, it speaks for a lot of our readers. 


I just entered the FILMAP program in the Feb., 
1982 issue. Features such as this are very useful to 
those of us who have to maintain more than one 
system with little or no help. Keep up the good 
work. 

However, it did have a problem of getting stuck 
in a look under certain conditions. I believe the 
enclosed lines will take care of the problem. Line 
2010 is just a slightly different way of arranging the 
statements that ensures getting to line 2000 if 
ppn.inx% is negative, regardless of the value of 
fil.cnt%. In line 2015. statement 7. the goto was 
changed from 2000 to 2010, to allow wildcard ppn 
searches where the first account in the range is 
zeroed. 
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Kooda 

Chris Rapp. System Manager 
CSULA Computer Center 
P.S. I wear large, if you're still giving away T- 
shirts. 

Chris, your t-shirt is coming — thanks for the help' 

I have just finished reading the “Benchmark 
DIBOL vs BASIC + 2” in your December issue and 
feel that a few- comments are warranted. 

1. The article is hardly a comparison between 
DIBOL and Basic + 2. It really compares RMS 
Isam file handling and DIBOL Isam file handling. 
It is very much a case of apples and prunes, is it not? 
On the one hand we have RMS written in macro 
w ith w ho knows how many thousands of man days 
behind it and on the other a very simple single key 
Isam structure written mostly in a high level 
language. 

2. There would appear to be no justification for 
the comparison, given that DIBOLR is available 
which also utilizes the RMS file structures. Now 
that would be a comparison worth taking note of. 1 
wonder what the I O would be like when BASIC + 
2 starts reading on its RMS overlays (especially for 
storing new records) while the DIBOLR program 
can do it all from its task image. 

When I open the pages of RSTS Professional. 1 
expect to read balanced, unbiased articles that 
have been filtered through a panel of competent 
referees. If you wish to print largely irrelevant com¬ 
parisons hiding behind the term “Benchmark”, 
then perhaps your publication should be called the 
RSTS Amateur. 

I must confess to being a DIBOL fan ever since 
COS350, however, I think my comments are reaso¬ 
nable. I would just hate to think of someone being 
turned away from DIBOL because of an article in a 
professional journal. 

Many thanks to Mr. Lomasky. 1 have never been 
to the Temple and Altar, but I will tonight. 

Kindest regards and Best wishes, 
Peter M. Jones, Systems Manager 
Charles David Pty. Ltd. 
Apples, prunes, professionals, amateurs, referees, 
fans — sounds like you’re fight in’ mad, Peter. 
We’re sorry, but at least we brought you back to 
Temple! 

Seriously, thank you for taking time to share you 
views with us. 

I have just attempted to implement CALLER- 
BAS (v.3, #4. p.76) with a fair degree of success. 
However, the printed version contains some 
drawbacks. 

1. The “Help” feature precludes use of the DEC 
HELP package. 

2. The CCL parser expands commands to their 

. . . continued on page 71 
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There really is a difference 

TUI? 

DOPTER 

DIFFERENCE 


DOPTER is an easy to use RSTS/E 
disk copying program which pro¬ 
duces an optimized disk structure 
providing greater system throughput 
and improved response time. 


Here’s Why 

With only two short commands, 
DOPTER automatically performs the 
following: 

Properly places and pre-extends the 
MFD. Yes, the first cluster of the MFD 
must start at device cluster zero, but 
DOPTER only writes in the first block 
of the first cluster. All of the rest of the 
MFD entries are in the interior of the 
volume where they belong. 

Places and contiguously pre-extends 
the UFD’s. The UFD’s, as well as the 
M FD, are only extended as much as is 
necessary to contain their current 
information plus some room for 
expansion. 

Places the UFD’s with the most 
activity toward the front of the M FD 
for quickest access. 

With its proprietary techniques, 

produces better optimized MFD/ 
UFD’s which remain that way longer 
than does REORDR or any other 
process. 



Deletes unused file attributes from 
source, task, and object library 
files saving UFD and cache 
accesses. 

Places the most used files at the front 
of the UFD’s for quicker access. 

Places the most used files in the 
center of the active files. Places 
“unused" files separate from the 
active files leaving the active files 
more compactly placed. 

Performs all steps starting with disk 
initialization and ending by “hooking" 
the output volume and installing the 


Please Send More Information To: 


Name_ 

Company_ 

Address_ 

City_ 

State_Zip 

Telephone_ 


RSTS/E is a registered trademark ot 
Digital Equipment Corporation 


current SIL without operator 
intervention. 


Furthermore 

DOPTER optimizes file cluster size 
and makes files contiguous where 
appropriate. 

DOPTER preserves previous bad 
block information on the output 
volume so that patterns need not be 
re-run. 

DOPTER prevents accidentally 
copying an older DOPTER’d volume 
onto a newer one. 

DOPTER preserves all accounting 
data. 

DOPTER allows all volume, UFD, 
MFD, and file defaults to be manually 
overridden. 


For More Information 

If you would like more information on 
the DOPTER DIFFERENCE, mail the 
coupon, circle the Reader Card 
number, or call us. We’ll send you a 
free copy of the DOPTER User 
Manual and License Agreement. 

Single CPU price: $2,500. 

System 
Performance 
House, Inc. 


5522 Loch More Court • Dublin, Ohio 43017 • 614-265-7788 
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Logging Into An Account 
Without LOGIN 


By Patrick Holmay & Robert Schilmoeller, Computation Laboratory, St. John's University 


“JUMP” provides RSTS users the ability to cross 
from one account to another without using the “LOGIN" pro¬ 
gram. It was mainly designed to minimize the frustrations 
and headaches of having passwords for every privileged ac¬ 
count. reduce the number of times one has to look up a 
password for any account whether it be privileged or non- 
privileged, and to be able to log into those accounts that 
may have an for a password. 

This program was written in BASIC-PLUS for RSTS/E 
Version 7. It was developed to run as a stand-alone. CCL or 
Chain Entry program (Line 30000 should be specified for CCL 
entry; line 30999 has been designated for Chain Entry). 

The user can login to a specific account using the fol¬ 
lowing three methods. The first method is by entering the 
project-programmer number separated by a comma. The 
second method is by entering the project-programmer num¬ 
ber separated by a slash. Finally, the third method is by 
entering a wildcard for a specific account (the entered wild¬ 
card is checked with those present in WILDCARDS in the 
program). 

Once the user has typed the specific account number 
he/she would like to jump to. all temporary files created 
with that user’s job number in the original account will be 
deleted. All system accounting data is updated. If the user 
types a comma to separate the project-programmer 
number, those jobs detached under the specified account, if 
any, will be displayed. If there are any detached jobs, the 
user will be prompted for the job number to attach to. The 
total number of users logged into the new account, if any. 
will also be displayed. 

This program has been running smoothly for the last 
year. It has saved a tremendous amount of time logging into 
a specific account. Should there be anyone out in RSTS-land 
who would be interested in obtaining this program, you can 
contact us. (This software is being provided for nothing, 
therefore, we do not feel obligated to maintain it.) 

1 1 

1 

2 1 

1 
1 
1 

4 I 

1 
1 
l 

10 EXTEND 

I EXTENDED BASIC 


JUMP 


PROGRAM : 
VERSION : 
EDIT 

EDIT DATE: 


JUMP.BAS 
2.0 
0 

04-MAY-81 


WRITTEN BY: 
WRITTEN FOR: 


HOLMAY/SCHILMOELLER 
COMPUTATION LABORATORY 
ST. JOHN'S UNIVERSITY 
COLLEGEVILLE, MN 


l BEFORE THE USER IS LOGGED INTO THE SPECIFIED ACCOUNT. 
I IF THE USER ENTERS A COMMA TO SEPARATE THE PROJECT 
! PROGRAMMER NUMBER, THE NUMBER OF USERS AND THOSE 
l JOBS DETACHED UNDER THAT SPECIFIC ACCOUNT WILL BE 
! DISPLAYED. THE USE OF A SLASH WILL SUPPRESS ANY OF 
! MESSAGES MENTIONED ABOVE. WILDCARD ACCOUNT NUMBERS 
! CAN BE SPECIFIED (WHICH ARE FOUND IN THE VARIABLE 
! 'WILDCARDS'). 


200 I 


1 VARIABLE DEFINITIONS 


201 


1 

1 

1 

1 

1 

1 

l 

1 

1 

I 

1 

1 

1 

1 

1 

I 

1 

i 

1 

! 

1 

1 

1 

i 

1 

1 

1 

1 


VARIABLE NAME 

USED FOR 

ACCOUNTS 

NEW ACCOUNT NUMBER 

ATT.JOB* 

JOB NUMBER TO ATTACH TO 

BELLS 

TO PROMPT USER OF ANY ERRORS 

COMMA* 

PPN SEPARATOR 

COMMONS 

CORE COMMON IF CHAIN 

CR$ 

<CR> 

CUR.PROJ* 

USER PROJECT NUMBER 

E$ 

SYSTEM ERROR MESSAGE 

FILE* 

FILE DELETION CHANGE VARIABLE 

I OB* 

USER I/O BLOCK ADDRESS 

JOB* 

USER JOB NUMBER 

KB.NUMBER* 

USER KB: NUMBER 

LOGINS 

NEW ACCOUNT DATA 

M* 

LOGIN CHANGE VARIABLE 

MAX.NO.JOBS* 

MAXIMUM JOB NUMBER 

NULLS 

EMPTY INPUT 

PASSWORDS 

PASSWORD FOR NEW ACCOUNT 

PROG* 

NEW PROGRAMMER NUMBER 

PROJ* 

NEW PROJECT NUMBER 

RET.LINE* 

LINE NO. OF PROGRAM TO RETURN TO 

RET.PGM$ 

PROGRAM TO RETURN TO IF CHAIN 

SLASH* 

PPN SEPARATOR 

STRIP* 

VARIABLE TO SETUP ACCOUNT INPUT 

USER* 

JOB STATUS CHANGE VARIABLE 

WILDCARDS 

PRIVELEDGED WILDCARD ACCOUNTS 


500 GOSUB 10000 

! OBTAIN JOB STATUS DATA IF USER EXECUTES 
1 PROGRAM WITHOUT USING A CCL OR CHAIN ENTRY 


899 ! 


1 DIMENSION STATEMENTS 

900 I UTILITY DIMENSION STATEMENTS 

910 DIM USER!(30%), FILE%(30%), M%(30%) 

!>> USER!( ) * JOB STATUS INFORMATION 

!>> FILE%( ) « FILE INFORMATION FOR CURRENT ACCOUNT 

999 i 


1 INITIAL PROGRAM LOGIC 


1000 ON ERROR GOTO 19000 

t SETUP ERROR HANDLING ROUTINE 

1010 IF ENTRY% 

THEN GOTO 1060 

!>> ENTRY% - CCL OR CHAIN ENTRY PARAMETER 


1020 PRINT 

\ PRINT CVT$$(RIGHT(SYS(CHR$(6%)♦CHK$(9%) +CHR$ (0ft)),3%),4%); 

TAB(27%);"Job ";NUM1$(JOB*); 

TAB(35%);•|";NUM1$(CUR. PROJ%) ;•,"jNUM1$(CUR.PROG%);")"; 
TAB(44%);"KB";NUM1$(KB.NUMBER*); 

TAB(50%);DATES(0%); 

TAB(61%);TIME$(0%) 

l PRINT THE SYSTEM HEADER LINE CONTAINING THE 
! SYSTEM NAME AND THE LOCAL INSTALLATION NAME 

1060 1 


1 CONSTANT DEFINITIONS 


1070 BELLS - CHR$(7%) 

\ NULLS - 

\ STRIP* - 2%+4%+32% 

!>> BELLS « INDICATOR THAT ERROR HAS OCCURRED 
!>> NULLS - DETERMINES IF INPUT AS BEEN ENTERED 
!» STRIP* » SETUP INPUT CORRECTLY 


20 1 


1MODIFICATION HISTORY 


1080 WILDCARDS - " $i%i" 

!>> WILDCARDS - PRIVELEDGED WILDCARD ACCOUNTS 

1199 ! 


! VERSION EDIT DATE REASON 


100 1 

1 'JUMP' PROVIDES RSTS USERS THE ABILITY TO CROSS FROM 
I ONE ACCOUNT TO ANOTHER WITHOUT USING 'LOGIN'. THIS 
! PROGRAM CAN BE RUN AS A STAND-ALONE, CCL OR CHAIN 
1 ENTRY. ALL TEMP FILES FOR THAT JOB NUMBER ARE PURGED 


1 PRELIMINARY LOGIC 


1999 ! 


(MAIN PROGRAM LOGIC 






% 4% For more than a decade, 

SI has provided reliable disk 

storage alternatives to 
XwC&TSa DEC and Data General 
minicomputer users in business, 
education and government. 



SI has given thousands of DEC and DG users just 
what they wanted Reliability. Flexibility. Broad choice. 

lllL 1 ! ^ tlAl lC Fast deliver V- And savin 9 s in 

llftSlQllQllUIlSa both money and floor space. 

W fjMLyi J f . * JM SI maintains fully staffed and equipped ser- 
A WOl 1QWlUv vice centers throughout the U.S. and Europe 

Coviriro Nolwnvlf t0 ensure prompt response and 
kJUl VIvV llvIWUllli complete repair capability. 


The reliable alternative for over a decade. 



United States: 1855 Barber Lane, Milpita i, CA 95035, (408) 942-1212, Telex 346459. 

Europe: System Industries (Europe), System House, Guildford Roao Woking, Surrey, GU22 7QQ, England, (44) 4862 5077, Telex 859124. 
California (714) 851-6289, (213) 822-3161; Colorado (303) 986-1591; Georgia (404) 955 2252. Illinois (312) 948-9330; Massachusetts (617) 695-4022; Michigan (313) 663-4925; 
New Jersey (201) 839-8650; New York (516) 482-6082; New York Metro (35-9300; Ohio (513) 771-0075; Texas (713) 497-7224, (214) 386-8776; 

Virginia (703) 734-9700; Washington (206) 451-8791; West Germany (49) 6102 5464; Sweden (46) 08-63 16 20 
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Structured disks for all! 
Announcing 

REACT2.TSK 

• a ‘REACT’ replacement that locates & 
extends UFD’s 

• all standard ‘REACT’ functions (Delete, 
Standard, Enter) 

• user specified location and length for 
new UFD. 

• high speed — this product uses software 
developed and licensed by Software 
Techniques. Inc. 

• distributed as an RSX or BP2 task on 9 
track 800/1600 tape 

Introductory Price: s 200. 00 
Single CPU License 

Nationwide Data Dialog 

70 James way 

Southampton, PA 18966 

(215) 364-2800 

Coll For Quick Service 
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PDP-11 

SPSS" makes data analysis simple for DEC 
PDP-11 users! Now PDP-11 users can enjoy all the 
benefits that have made SPSS the world's largest 
selling Data Analysis System. It's easy to use and 
learn, thanks to its response to English language 
commands and comprehensive documentation. 
It's also sophisticated, giving researchers and 
business managers alike a full range of capabili¬ 
ties for statistical analysis and report generation. 

For full information, call or write SPSS today: 
Sue Phelan, SPSS, Inc., 444 N. Michigan Avenue, 
Chicago, IL 60611, 312/329-2400. 



c Copyright 1981 SPSS. Inc, ANALYSIS 

MADE SIMPLE 


SPSS-11 runs on DEC LSI-11 through PDP-11/70. Compatible with DEC Systems RSTS. 
RT-11, RSX-11M, IAS/Bel I Labs UNIX/S&H Computer Systems TSX. 
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2000 IF ENTRY! 

THEN 2010 

I IF CCL ENTRY, THEN SKIP ACCOUNT PROMPT 

2005 PRINT "Account number"? 

\ INPUT LINE ACCOUNTS 
\ ACCOUNTS - CVTSS(ACCOUNTS,STRIP!) 

\ GOTO 9000 IF ACCOUNTS - NULLS 

I PROMPT USER FOR ACCOUNT • ONLY IF THE 
I CCL WAS TYPED AND NOTHING MORE. 

! STRIP GARBAGE FROM ACCOUNT *. 

I IF THERE IS NOTHING IN THE STRING THEN EXIT. 

2010 COMMA! - INSTR(1!,ACCOUNTS) 

\ SLASH! - INSTR(1!,ACCOUNTS,"/") 

\ IF COMMA! OR SLASH! 

THEN 2020 
ELSE PROJ! - 1! 

\ PROG! • INSTR(1!,WILDCARDS,LEFT(ACCOUNTS,1!)) 

\ IF PROG! > 0! 

THEN 2030 

ELSE PRINT "?Can’t find file or account" 

\ GOTO 9000 

i DETERMINE IF USER HAS TYPED IN AN 
1 ACCOUNT « OR A WILDCARD SYMBOL. 

2020 P! - COMMA! ♦ SLASH! 

\ PROJ! * VAL(LEFT(ACCOUNTS,P!-1!)) 

\ PROG! « VAL (RIGHT(ACCOUNTS,P! + l!)) 

1 IF NOT A WILD CARD ENTRY, THEN STRIP 
1 THE PROJECT-PROGRAMMER NUMBER FROM ACCOUNTS 

2030 CHANGE SYS(CHR$ (6!)+CHRS(-10!)♦"????"♦ 

RIGHT(NUM1S(100!+(255! AND PEEK(510!))/2!),2!)♦ 

".TMP") TO FILE! 

\ FILE!(1!) - 6! 

\ FILE!(2!) « 17! 

\ FILE!(3!), FILE!(4!) » 0! 

\ CHANGE FILE! TO TEMP.CHS 

1 SET UP TO DELETE THE TEMP FILE "TEMPNN.TMP" 

I (WHERE NN IS THE USER’S JOB NUMBER) FROM THE 
1 USER’S FILE DATA. 

2040 CHANGE SYS(TEMP.CHS) TO FILE! 

\ KILL RADS(FILE!(7!)+SWAP!(FILE!(8!)))+RADS(FILE!(9!)♦ 

SWAP! (FILE!(10!)) ) ♦" ."+RADS(FILE!(11!)+SWAP!(FILE!(12!))) 
\ GOTO 2040 

! PLOW THROUGH USER'S "????NN.TMP" FILES, KILLING EACH. 

2050 PASSWORDS * MID(SYS(CHRS(6)+CHRS(14)+CHR$(0)+CHRS(SWAP!(0))♦ 

CHRS(0)+CHR$(0)♦CHRS(PROG!)+CHR$(PROJ!)),9!,4!) 

1 FETCH PASSWORD FOR NEW ACCOUNT 

2060 Z$*SYS(CHRS(6!)+CHRS(5!)) 

! LOGOUT USER FROM CURRENT ACCOUNT 

2070 LOGINS * SYS (CI!R$ (6!)+CHRS (4!)+CHRS (0!)+CHR$ (0!) + 

CHRS(PROG!)+CHRS(PROJ!)+PASSWORDS) 

\ CHANGE LOGINS TO M! 

\ GOTO 8000 IF RET.PGMS <> NULLS 

\ GOTO 9000 IF SLASH! 

\ GOSUB 12000 IF M!(4!) > 0! 

\ GOSUB 11000 
\ GOTO 9000 

! IF USER WANTS TO RETURN TO PROGRAM...GO 
! LOGIN USER TO NEW ACCOUNT 

! CHECK AND SEE IF USER WANTS TO SEE THE NUMBER 
! OF USERS AND DETACHED JOBS FOR THIS ACCOUNT. 

! IF NOT, THEN EXIT FROM PROGRAM 

8000 CHAIN RET.PGMS LINE RET.LINE! 

I CHAIN TO SPECIFIED PROGRAM 

9000 i 

!ENU OF THE PROGRAM 

9010 Z$ * SYS (CHR$(9!)) 

\ GOTO 32767 

! CLEAR PROGRAM FROM MEMORY 
! EXIT FROM PROGRAM 

9999 l 

1US5K SUBROUTINES 

10000 1 


JOB TAIN JOB STATUS 


JOB! * (PEEK(518!) AND 255!)/2! 

\ IOB! = PEEK (PEEK(520!)) 

\ KB.NUMBER! = (SWAP!(PEEK(PEEK(IOB! + 0!) + 2!)) AND 255!) 

\ P.PN! = PEEK(PEEK(PEEK(520!)+8!)+24!) 

\ CUR.PROJ! = SWAP!(P.PN!) AND 255! 

\ CUR.PROG! * P.PN! AND 255% 

1 JOB! -> CURRENT JOB USER IS LOGGED UNDER 

! IOB! -> I/O BLOCK ADDRESS 

! KB.NUMBER! -> TERMINAL KEYBOARD • ON CHANNEL »0 
! P.PN! -> PROJECT-PROGRAMMER NUMBER OF CURRENT 

! USER. THE PROJECT NUMBER IS STORED 

! IN THE VARIABLE ’CUR.PROJ!’. 


IF CUR.PROJ! <> 1! 

THEN PRINT "PProtection Violation" 

\ GOTO 9000 

1 IF USER IS NOT PRIVELDGED THEN LET THEM KNOW 
1 AND EXIT FROM PROGRAM. 


10030 RETURN 
11000 1 


! NUMBER OF USERS LOGGED 
! INTO ACCOUNT 


11010 IF 

THEN 


COMMA! AND M!(3!) > 1% 

PRINT NUM1S(M!(3!)-l!);" other user"; 
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\ PRINT "s are"; IF M%(3%)-1% > 1% 

\ PRINT " is"; IF M%(3%)-!% - 1% 

\ PRINT " logged in under this account" 

1 PRINT THE NUMBER OF USERS FOR THIS ACCOUNT 
1 EXCLUDING THE ACCOUNT JUST JUMPED TO. 


11020 RETURN 
12000 1 

1 ATTACH TO A JOB 

12010 PRINT "Job"; 

\ PRINT "s"; IF M%(5%) <> 0% 

\ PRINT " ";NUM1$(M%(INDEX%)); 

FOR INDEXt - 4t 

WHILE M% (INDEXt) <> 0t 

\ IF M%(5%) <> 0% 

THEN PRINT " are "; 

ELSE PRINT " is "; 

12020 PRINT "detached under this account” 

1 LIST THOSE JOBS THAT ARE DETACHED UNDER 
1 THE NEW ACCOUNT 


12030 PRINT "Job number to attach to"; 

\ INPUT ATT.JOBI 

\ RETURN IF ATT.JOBI « 0% 

! ASK FOR WHICH JOB TO ATTACH TO 

12040 IF ATT.JOBI < II OR ATT.JOBI > M AX ~ . N O. U>&. 

THEN PRINT "?Job number out of range" 

\ GOTO 12030 

l CHECK TO SEE IF THE JOB NUMBER FALLS IN THE 
1 ALLOWABLE RANGE. 

12050 INDEXI * 41 

\ WHILE Ml(INDEXI) <> 01 
\ IF Ml(INDEXI) - ATT.JOBI 
THEN 12070 

ELSE INDEXI - INDEXI + 11 
\ NEXT 

12060 PRINT "?Job not detached under this account" 

\ GOTO 12030 

! DETERMINE IF JOB IS ACTUALLY DETACHED UNDER 
i THIS ACCOUNT 


. . . continued on page 89 


DECWORD/DP 

or 

How I Tried to Get a Free VTIOO Advanced Video Option 

By Joe Doyle. 2822 Truman Drive. Hatfield, PA 19440 


It Started the day the cardboard keyboard arrived. You know; 
you all received one. Certainly not your typical four color glossy 
folder-in-an-envelope promo. Rather, a full size, full color, cardboard 
keyboard announcing DECWORD. a new DEC software product. It 
seemed that DEC had made an arrangement with Data Processing 
Design to market a version of their product, WORD-11. By simply 
mailing in a postcard, you would receive a version of the Computer 
Based Training Program, a VT100 Advanced Video Option, and a 
genuine, authentic, brand new VTIOO keyboard. Now I have a con¬ 
fession to make. First, we already have WORD-11 on our system. 
We have no need for DECWORD. Second, we have a vast mixture of 
terminal types already set up with WORD-11. DPD supplied keycaps 
or stickers. Third, all our VTIOOs already have the advanced video 
option. But. who can resist a freebee? After all. Word-11 does not 
have a computer aided instruction system. Also, who wouldn’t like 
to have a spare keyboard available. (An industrial site I worked at. 
always had keyboard that were destroyed by dirt and dust). Finally, 
we could buy another VTIOO (which we needed) without the AVO, 
add the free part, and save some money. We sent in our postage 
paid postcard that morning. 

The CBT tape, keyboard. AVO as well as associated pieces of 
paper arrived in a couple of weeks. After unpacking, the first thing 
to do was test the keyboard. Truthfully, the keyboards are nice. Col¬ 
ored keycaps are certainly much more impressive than the plastic 
translucent stickies provided by DPD. I mean, it is classy looking! I 
unplugged my old keyboard. Plugged in the new one. Viola! It 
worked ... except for the line feed and the back slash. The inside’ 
story is that the Field Service Department didn’t want to be 
bothered switching keycaps on all those VTIOOs out there; so they 
convinced the company to simply (and more economically??) provide 
free, new, cap colored keyboard. In spite of it all. somebody has 
managed to put two keys on wrong. These can be easily pried up 
and switched. (Who needs Field Service for keycaps?) After verifying 
that the keyboard worked. I compared the DECWORD keyboard 
layout to the WORD-11 keyboard layout. Just as I suspected — dif¬ 
ferent. OK, perhaps it was somewhat compatible with the EDT 
layout? I remember that about a year ago, the EDT people at DEC 
were very interested in providing keycaps. No. only the gold key was 
EDT compatible. I didn’t even consider TECO. I also noted that the 
DEC keyboard did not have as many functions as the WORD-11 
setup. 

The next step was to load the training tape. No problem, PIP!!! 


The direction sheet is clear. No CCL’s to eat up those small buffers. 
One logical. I ran the product on my VT100 with the original AVO. It 
worked excellently. It also worked on a DT-80 and a VT52. The 
Hazeltine 1552 had some functions, but not all. I think it will work 
to help train out new personnel in WORD-11. Unfortunately, the 
program does change the terminal characteristics without restoring 
them. Namely. CTRL/R and ESC SEQ. It appears DEC has accepted 
this type of inconsistent terminal hocus-pocus as a standard. 

Now for the Advanced Video Board. I didn’t need it, but I 
wanted to try it. The included installation book is excellent, with the 
exception of the page describing the AVO switches (page 14). First 
of all. there are two sets of switches. The manual describes how to 
set one set but not the other. The manual describes setting the ”E19 
switch pack’’. There was no El 9 switch pack on my board, only El 8. 
The manual describes the switches as being ON or OFF. Mine were 
OPEN. (We know from DZ experience that OPEN can mean both OFF 
and ON). My switch pack was upside down compared to the switch 
pack in the picture or were the numbers on backward? No matter. I 
tried what I thought was the correct setting. And another. And 
another ... Then I cut my hand with the screwdriver. 

After many more attempts. I had experienced the ultimate 
high in visual display fantasies. However, no advanced video. The 
manual (EK-100CK-IN-001) clearly states, 

IF YOU NEED HELP; 

* Call Digital Field Service 

I did. The call-logging person had never heard of DECWORD or the 
promo package. However. DEC would be glad to send over one of 
those Field Service Technicians at $76.20 per hour. When I re¬ 
explained the problem, she gave me the phone number of the termi¬ 
nal group. I called. After three conversations. I was passed to a termi¬ 
nal engineer. So far. no one had ever heard of DECWORD. The engi¬ 
neer sounded friendly and wanted to help. He did suggest I call Field 
Service. He also admitted that he had heard of a new AVO board with 
switches, but had never met one in person. He assured me that El 8 
meant El 9. and that OPEN meant OFF except on DZ's. He took the 
manual number and told me if he could find some additional infor¬ 
mation he would call back. I tried his ideas. (I had tried them all be¬ 
fore — honest.) The board still failed. All that was left was the DEC 
SALES OFFICE. I dialed the number on the cover letter. The em¬ 
ployee who answered the phone had never heard of DECWORD ..!$ 
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IMPRS 

A Productivity Relational Data Base Language 

By Jacob F. Ruf. Ruf Corporation. Olathe, Kansas 


ABSTRACT 


IMPRS (Information Management Processing Reporting System) is a software language product 
of Ruf Corporation. 

IMPRS provides the capability of developing complete application software from five to ten 
times faster than would be possible using conventional programming approaches. This productivity 
is accomplished through the modular, operation-oriented structure of IMPRS and its powerful rela¬ 
tional data base language. The IMPRS user is commanding his file management processing and re¬ 
porting in terms of "What needs to be accomplished?” as opposed to the detail level of "How?" re¬ 
quired by conventional data base managers. 

The flexibility and efficiency of IMPRS with its imbedded high-speed sort, versatile record subset 
selection, and interactive report generation make it the most powerful relational data base program¬ 
ming language currently operating on hardware in this size and price range. The execution speed of 
IMPRS programs is two to three times faster than that of COBOL or BASIC-PLUS. 

IMPRS has been in constant use on Ruf Corporation public time-sharing DEC 11 systems and 
many other computer systems in the Kansas City area since March. 1977. Application packages (over 
2,500 programs) are available supporting practically all information management fields. The basic 
IMPRS package consists of over 500 Fortran subroutines linked into over thirty (.SAV) programs com¬ 
plete with documentation. 

IMPRS is currently supported on DEC 11 systems running under RT11. RSX, and RSTS/E 
operating systems. 


INTRODUCTION 

A systems analyst must first understand the 
philosophy under which a business operates before he can 
successfully develop an information system to serve that 
business. This is necessary because the information system 
which he develops must operate under the same philosophy. 

Successful businessmen are goal-directed. Their deci¬ 
sion making is performed with the use of rational processes. 
They measure the attainment of their goals through quan¬ 
tifiable evaluations. 

To effectively place this philosophy into operation in the 
management of our business we continually ask the ques¬ 
tions outlined in Figure 1. 

In order to answer those questions, we are continually 
drawing upon information. With the advent of the com¬ 
puter, the information system has become more structured 
in serving management's needs. Today's information 
systems consist of people, data, hardware, software, and 
education or procedures. 

BUSINESS MANAGEMENT 


WHERE ARE WE NOW? 


■— WHERE DO WE WANT TO GO? 


HOW DO WE GET THERE? 


■—HOW DO WE STAY ON COURSE? 

FIGURE 1. 
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The value of the computerized information system is il¬ 
lustrated in Figure 2. The purpose of an information system 
is to (1) collect and manage data, (2) process data into infor¬ 
mation and (3) to disseminate the information to people for 
their use in answering the questions of Figure 1 (above). 

FUNCTIONAL USE OF DATA 
INFORMATION DELIVERY SYSTEM 
DISSCMINATION PBOCiSS 



INFORMATION SYSTEM HUMAN SYSTEM 

FIGURE 2. 

DATA MANAGEMENT — THE KEY 

The one component of the information system that 
"flows" and involves all the other components is data. Sue- 
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WHEN SHELL OIL WANTED A FINANCIAL 
PLANNING PACKAGE FOR THEIR DEC 
INSTALLATIONS WORLDWIDE, THEY 
CHOSE FPS80. 


WHY FPS80? 


IT'S A WELL PROVEN PRODUCT, RUNNING 
ON A WIDE RANGE OF MACHINES, WITH 
BUILT IN SOPHISTICATED FINANCIAL 
FUNCTIONS AND IS USED EXTENSIVELY 
VIA TIMESHARING. 


IS FPS80 FOR YOU? 


IF YOU RUN RSTS/E, RTll, RSXll-M OR 
VMS AND YOU'RE LOOKING FOR THE BEST 
IN INTERACTIVE FINANCIAL PLANNING 
WE ARE YOUR FIRST CHOICE. 


FOR INFORMATION, WRITE TO 
D HOLROYD 

RTZ COMPUTER SERVICES 
103 JERMYN STREET 
LONDON SW1Y 6EB 
OR PHONE 01-920 4163 
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cessful system engineering has proven the need to single out 
the categories of data and the functional use of this data in 
the operation of the business. See Figure 2A for an example. 
James Martin (1) has been referred to as the "computer in¬ 
dustry's most widely-read author and best-attended lec¬ 
turer". He states that "by the end of the 1970's, much of the 
computing in industry and government will relate to the 
data bases which have been painfully constructed piece by 
piece and management effectiveness will relate to the qual¬ 
ity of their organization's data sources and the versatility 
with which they can be used". 


IUMMAIV DATA 



DETAIL DATA FROM THE 
VARIOUS HOSPITAL DIVISIONS 



VARIOUS HOSPITAL DIVISIONS 
FIGURE 2A. 

SOARING SOFTWARE COST 

Throughout the last decade, program development pro¬ 
ductivity on a national basis has not increased. Recent 
studies by Ferrentino (2) show that a programmer produces 


about ten lines of program source code per day. as was the 
standard ten years ago. 

Today, the cost of software equals 70% of the total 
cost of operating a computerized information system. Hard¬ 
ware cost is equivalent to only 30% of that total. By the end 
of this decade it is estimated that the ratio will be 90% soft¬ 
ware compared to 10% hardware. 


LOW U. S. PRODUCTIVITY 

The United States has an annual productivity growth 
rate of about zero compared to more than 11 percent for the 
Japanese. The time lag between the development of a new 
technology and putting it to use averages seven years in the 
United States. In contrast, the technology transfer time for 
West Germany is five years and that for Japan is only three 
years. 

It is a fact that over 50% of all American technology is 
originated in small businesses. However, large financial 
resources are required to adequately implement technology. 
Due to the lack of capital in small business and the status 
quo approaches of large business, the United States has 
fallen drastically behind in our productivity. The low produc¬ 
tivity growth is a contributing factor to the increasing infla¬ 
tion in this country. 


PAST SOFTWARE QUANTUM LEAPS 

Computer language productivity has developed in a 
series of leaps throughout the history of the computer. 
Figure 3 illustrates these leaps in productivity. Language 
technology advances have generally been accompanied by a 
seven to one increase in productivity. It usually takes seven 
times longer to develop a program in assembly language as 
it does in COBOL or Fortran. 
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According to James Martin (5). “Until recently. 90% of 
commercial programming was done in COBOL We cannot 
go on using COBOL", he said, "because COBOL requires too 
many scarce programming resources. PL/1 faces the same 
fate." Martin believes we need a fourth generation of pro¬ 
gramming languages to begin to solve the "colossal prob¬ 
lem" of programming productivity. Recent language 
developments do 
not solve this prob¬ 
lem. It appears that 
we are overdue for 
a quantum leap in 
software produc¬ 
tivity. 

PAST •BRIGHT” 

APPROACHES 

During the 
1970's, formalized 
software was de¬ 
veloped to act as 
the "file secretary" 
and to augment 
the host language. 

This software sup¬ 
ported the pro¬ 
grammer with the 
retrieval and filing 
of data upon his 
programmed re¬ 
quest. These sys¬ 
tems were called 
Data Base Manage¬ 
ment Systems 
(DBMS). 

With the 
stress on centraliz¬ 
ed control of data, 
it appeared that 
the DBMS of the 
70's offered the 
best solution to 
information pro¬ 
cessing. But, 
because of the 
complexities and 
lack of flexibility of 
the hierarchical 
tree and plex ap¬ 
proaches used in 
the early DBMS, 
disappointments 
and failures have 
been widespread. As with many innovations, users 
sometimes got wrapped up in the methodology of the 
system and lost track of the desired goal. These "LBJ’s" of 
the New Frontier in the 70 s had taken over. These "Light¬ 
ning Bug Jocks” were so concerned about "How it works" 
that they lost track of providing what was needed. They 
were bright boys, but it was all in their rear end. I am 
reminded of a saying of my Chemical Engineer Thesis Pro¬ 


fessor at the University of Kansas, the late Dr. Fred Kurata. 
He was teaching the thermodynamic law on work where 
work is equal to the product of Pressure times Volume, i.e. 
W = PV. He made the observation to the class that "We can 
have all the P in the world, but if we don’t have any V, we 
will not have any work”. As we look back on the history of 
the DBMS, in many cases it seems that the mountain toiled 

and brought forth 
the mouse. 

“The struc¬ 
tured techniques of 
the 1970’s are 
completely inade¬ 
quate," says James 
Martin (6). “We 
need new types of 
methodology, with 
end user involve¬ 
ment. user-driven 
computing." It ap¬ 
pears that we have 
overdone the meth¬ 
odology of the hier- 
archical DBMS. 
Data processing or¬ 
ganizational goals 
have become in¬ 
creasingly unre¬ 
lated to the goals 
and objectives of 
the institution they 
serve. Those data 
processing people 
who have not ex¬ 
perienced the prob¬ 
lems of the early 
prototype DBMS 
should feel fortun¬ 
ate that there are 
much more effi¬ 
cient approaches 
available today. 

IMPRS 

PRODUCTIVITY 

Information 
Management Proc¬ 
essing Reporting 
System (IMPRS) is a 
relational data base 
software product 
developed by Ruf 
Corporation which 
gives that quantum leap in software productivity. Since the 
development of IMPRS in 1976, we have experienced and 
documented software development productivity factors of 5 
to 30 times faster with IMPRS. In a recent comparison of 54 
payroll and accounts payable programs, we were able to 
develop at the rate of 300 equivalent COBOL lines per day 
compared to the national average of 10 per day. This is 30 
times faster with IMPRS. 




How to count 
your chickens 
before they 
hatch. 

Surprises can be expensive. Even good news 

can cost money if your company is not prepared for it. 

With financial modeling you can avoid surprises 
and plan calmly for whatever the future has in store. 

FINAR is the latest financial analysis and reporting 
system. It will help you plan: 

■ Budgets ■ Project evaluation 

■ Cash flow ■ Forecasts 

■ Capital investment ■ Consolidation 

All you need is a DEC PDP-11 with RSTS or a VAX-11, 
and FINAR—the Financial Analysis and Reporting Language. 

Entry level FINAR is available for as little as $4500, 
and can be upgraded as your needs become more 
sophisticated. 

If you’d like to know how to count your 
chickens before they hatch, call or write: 

Finar Systems Limited 
6000 E. Evans, Suite 2-300 
Denver, CO 80222 

(303) 758-7561 

FINAR 


S °<t 
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We have developed complete business systems in 
COBOL and BASIC-PLUS and executed them for several years 
on our time-sharing systems. We then redeveloped the 
systems in IMPRS. We are not only seeing the quantum in¬ 
crease in program development performance with IMPRS. 
but are experiencing execution speeds of two to three times 
faster than the equivalent COBOL or BASIC-PLUS programs. 
These observations were based on reliable studies with the 
use of our time-sharing computer resource accounting soft¬ 
ware over a four year period. 

The imbedded high-speed sort, versatile record subset 
selection, and interactive report generation make IMPRS a 
powerful data base programming language. The productiv¬ 
ity is accomplished through the modular, operation-oriented 
structure of IMPRS, with its highly flexible relational data 
base. 

The key to IMPRS is the interactive nature of its pro¬ 
cessing and reporting. The IMPRS user is commanding the 
file management in terms of "What results are required?" 
as opposed to the question "How must we get the result?" 
used in conventional application software. This very impor¬ 
tant difference translates into a more versatile, flexible and 
faster system. 


IMPRS — A RELATIONAL DATA BASE 

James Martin (1) supports the relational approach over 
the hard-linked hierarchical methods, stating, "There is a 
simple and more elegant method — the use of relational 
data bases.” He defines a Relational Data Base as "a data 
base made up of relations. (Flat file, two-dimensional array 
of data elements). Its data base management system has 
the capability to recombine the data elements to form dif¬ 
ferent relations thus giving great flexibility in the usage of 
data". 

He continues, "Throughout the history of engineering a 
principle seems to emerge: great engineering is simple 
engineering. Ideas which become too cumbersome and in¬ 
flexible tend to be replaced with newer, conceptually cleaner 
ideas.” 

It is possible to avoid the tangled webs that build up in 
tree and plex structures by a technique called normalization. 
Normalization is the subdivision of a complex data base into 
its lowest common denominator of relationally linked flat 
files. This technique was originally designed and advocated 
by E. F. Codd (3). Codd sets relational data bases apart from 
hierarchical and other popular designs by its ability to 
automatically navigate to data. 

The advantages of the relational data base approach 
outlined in Table 1 below have been clearly substantiated 
over five years experience with Ruf Corporation's IMPRS. 


IMPRS COMPONENTS 

Figure 4 portrays the more visible components of 
IMPRS. which are Relational Data Base Management Sys¬ 
tems (RDBMS), Data Manipulation Language (DML), Query 
Language Interface (QLI), and Utilities. 

Figure 5 more accurately illustrates the components of 
IMPRS and their interrelation. 


TABLE 1 

Relational Data Base Advantages 

(1) Simple and clear 

Supports structured modular approaches 

(2) Transparent to change 
Data independent 

(3) Flexible access and relatability 
Geographically independent links 
Logical linkages 

(4) Ease of reporting 

(5) High level DML support 

(6) Minimum data redundance 

(7) Completeness 

Ease of use and implementation 

Flexibility 

Precision 

Security 


IMPRS COMPONENTS 
IMPRS 

I-1-^-1-1 

RDBMS DML QLI UTILITIES 

RELATIONAL DATA QUERY 

DATA MANIPULATION LANGUAGE 

BASE LANGUAGE INTERFACE 

MANAGEMENT 
SYSTEM 


FIGURE 4. 

IMPRS Information Management Process Reporting System 


IMPRS SYSTEM COMPONENTS 
















April 1982 page 17 

RSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPTOFESSIONALRSTSPROT 


Don’t just “get by” . . . 

Call MACRO MAN 

for superior performance 

• RSTS Internals • 

• Custom Macro Programming • 

• RSTS or 11M • 


LEARN MACRO FROM THE MASTER! 

One week course in Philadelphia — call for details. 

MACRO UTILITY LIBRARY Soon — 

Available now! XBUF Display. 

Call for information. XBUF contents revealed! 

Also Available Now — 

VAX MACRO Consulting 


Bob ‘Macro Man* Meyer 

9 Lockwood Avenue, Fieldsboro, NJ 08505 
609 — 298-9127 
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I M P R S 


Information • Management • Processing • Reporting • System 


A PRODUCTIVITY RELATIONAL DATA BASE LANGUAGE 
DATA MANIPULATION/QUERY LANGUAGE 

Reduces system development and programming 
IMPRS time for application systems. 

Has more features and runs more efficiently than 
IMPRS any other Data Base software. 

Is available for the following DEC operating 
IMPRS systems: RSTS/E • RT11 • RSX 

For price quotes and information contact: ===== 

(913) 782-8544 gpf 

1533 East Spruce Olathe, Kansas 66061 

"We think smarter and our software works harder for you." 
CIRCLE 109 ON READER CARD 


The RDBMS, Data Description Language (DDL), and 
Data Dictionary (DD) serve as the system level components 
and are imbedded throughout the operational components 
which are the Data Manipulation Language (DML). Query 
Language Interface (QLI) and Utilities. The heart of the 
IMPRS operational components is the DML and QLI. 

With the DML we have written a complete interactive 
order entry program in four hours. This program built the 
Order Master and Item files, checked on customer credit and 
part availability, relieved inventory and priced the order. 
This was completed with the use of 150 DML program 
steps. 

The QLI provides on-the-spot new management report¬ 
ing. utilizing menu directed approaches, guiding the novice 
step by step to the desired reports. Utilizing the Boolean 
record selection, the user has almost unlimited subset selec¬ 
tivity in his reporting. 


IMPRS FEATURES 

IMPRS is written in a high-level ANSI language - Fortran 
IV - and consists of over 500 linked subroutines ... com¬ 
plete with documentation. We have found Fortran a most 
appropriate language for developing systems of this nature. 
IMPRS is a portable system, providing the capability to oper¬ 
ate on a multitude of different computers as it rigidly ad¬ 
heres to ANSI programming standards. 

IMPRS has been in constant use on Ruf Corporation’s 
public time-sharing systems, and other systems, since 1976. 
It has proven to be an effective system in actual information 
management situations ranging from private business to 
medical research labs: education to manufacturing informa¬ 
tion systems. 

IMPRS is currently supported on Digital Equipment Cor¬ 
poration PDP 11 systems running under RT11, RSX. and 
RSTS/E operating systems. 

The main features of IMPRS are listed in Table 2 below. 


TABLE 2. IMPRS Features 

Information Management (RDBMS) 

Full Relational Linkage (Interactive/Batch) 
Interactive or Batch DB Management 
File Maintenance Utilities 
Full Cursor Control 
High-Level Structured DML 
Information Processing (DML) 

Interactive Multi-File Processing 
Multi-User Simultaneous File Access 
Inter-Job Communication 
Imbedded Sorts 

Structured Data Processing Language 
Information Reporting (QLI) 

Interactive Multi-File Report Generator with 
Boolean Record Selection 
Full Report Writer & Report Generation 
Multi-Contingency Frequency Reporting 
Data Quality Consistency Reporting 
High-Level Structured Reporting Language 
Information System (RDBMS) 

High-Level Structured Programming Language 
Security - System to Item Levels 
Multiple Key Access to Files 
Variable Length Records and Fields 
Interfaces to All Languages 
Data Dictionary 

Full Interactive Programming Support 
Automatic System Documentation 
Automatic System Flowcharting 
Full Debugging Aids 

Data Base Disk Usage Management Aids 
Interface to Computer Utilization Accounting 
Interface to High-Level Simulation Language 
Full Cross Reference Programming Aid 
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IMPRS EXAMPLE 

Figure 6 illustrates a daily work-in-process and labor 
performance system which was developed in a four hour 
period using IMPRS. A similar system developed previously 
using COBOL took two man-months. The IMPRS system con¬ 
sisted of a DML program (DAYWK1.TRN), utilizing three 
files (EMP, STD. and DAYWK). and a QLI interactively report¬ 
ing labor performance. The DML program interactively 
received daily labor statistics from the keyboard and extend¬ 
ed them using the employee master and job standard files. 
It then calculated the labor performance and wrote the 
record into the DAYWK.DAT file for future reporting. 

DAILY WORK IN PROCESS 
& 

LABOR PERFORMANCE 

SYSTEM FLOW CHART 



FIGURE 6. 


Daily Worn In Process t Labor Performance 
Relational File Linnace 



Employee Master Job Standard Master 

(EMP.DAT) (STD.DAT) 


The relational linkage of the employee master and job 
standard master files to the WIP master is demonstrated in 
Figure 7. The linkage is performed without the use of hard 
disk pointers. 


TABLE 3. 



IMPRS DBPAR Paraaeter File Listing 

15-Nov-81 WOO 


Parameter file! EHP.PAR 

2 Blocks 


Data file! EMP.DAT 

2 Blocks 


Key file: EMP.KEY 

1 Block 


Description! EMPLOYEE MASTER 



Control itea nuaber! 0 Maxiaua nuaber of records! 

20 

Nuaber of headings! 0 Nuaber of bytes per record! 

30 

Print 

F o r ■ a t 


<lH+» 2</>) 



Nut Description Fit ALR Key 

Edit Range 


1 EMP. # 13 N * 1 

2 EHP. NAME 20A1 N 

3 RATE PAY <»/(*) F6.2 N 

1 to 100 



TABLE 4. 



IHPRS DBPAR Paraaeter File Listing 

15-Nov-81 18!5? 


Paraaeter file! STD.PAR 


2 Blocks 


Data file! STD.DAT 


2 Blocks 


Key file: STD.KEY 


1 Block 


Description! STANDARD RATE HAST. 



Control itea nuaberi 0 

Naxiaua nuaber of records! 

25 

Ffcjaber of headings! 0 

Nuaber of bytes per record! 

28 


Print 

F o r a a t 


(lH+r 2(/)) 




Nut Description Fat 

ALR Key 

Edit Range 


1 JOB * 2A1 

N * 1 



2 JOB DESCRIPTION 20A1 

N 



3 STD.HRS./UNIT F6.3 

N 




The listing of the data description language (DDL) for 
the three files is included as Tables 3,4. and 5. These tables 
contain all the data attributes that the data base required 
for this system. 

The listing of the DML program (Table 6) consists of 
fourteen commands and six calculations. The command 
structure consists of a sequence name, alpha command, and 
four parameters. The parameters make reference to file 
numbers as described in the beginning of the DML, item 
numbers described in the DDL (Tables 3-5), DML sequence 
names, and other required attributes. The calculations are 
directed in terms of file numbers, item numbers, and the 
standard arithmetic operators ( + .-,*,/.I). The function of 
each command is listed in the command description column. 


FIGURE 7. 


































* imommjux 
MimtmANP 
Wl CONTPOUW!' 


’ mYOURTONM! 
HOW ABOUTPH,PZ,OR 

w-wmMx?mr 

m&iNwm- 



■IX ISM 

HanabieH 

COMMUNICATE 
WITH DEC 




We re also able to save you plenty: For instance, you get DH11 performance for a DZ11 
price. Four new space-saving single-board communications multiplexers. And an increase in 
VAX-11 terminal handling capacity by up to 50%. Maintained nationwide by Control Data. 

Microprocessor-based architecture and common hardware deliver faster, more flexible line¬ 
handling Self-test on power-up Full software transparency. And Emulex reliability standards. 

Communicate with Emulex now Write or call Emulex Corp.. 2001 Deere Ave.. Santa Ana. 
CA 92705: (714) 557-7580.TWX 910-595-2521. Outside Calif.: (800) 854-7112. 

For immediate off-the-shelf delivery, call our national distributor First Computer Corporation. 645 Blackhawk Dr Westmont. IL 60559; (312) 920-1050 
In Europe Emulex Corp . 10th floor. Cory House. The Ring. Bracknell. Berkshire. England Telephone 0344-84234 Telex 851-849781 


CS11/H (PDP-11) $7560 for 48 lines* CS11/V $4464 for 16 lines* CS21/Z $2550* 

CS11/U (VAX-11) $7884 for 48 lines* 





CS21/U (VAX-11) $2844 for 16 lines* 
CS21/H (PDP-11) $2520 for 16 lines* 



Up to 64 DH11 channels from 
one board. 

DHII-compatible MUX lets 
you mix RS-232 & current loop 
interfaces in 8-line groups. 
Built-in DM11-compatible modem 
control. DMA output eliminates 
host interrupts. Self-test capabili¬ 
ties. Transparent to PDP-11 soft¬ 
ware. Emulex' own software on 
VAX 


Higher DV11 performance, 
lower price. 

DV11-compatible multiplexer 
Mixes 8-lines synchronous & 
asynchronous on PDP-lls. Ideal 
for Bisync & DECNET. 8-32 
lines per controller. DMA input & 
output. Software transparent 
under DECNET Compact pack¬ 
age offering higher line-handling 
speeds & improved throughput. 


Replace DEC DZ11/E and 
save. 

Perfect if you don't need 
DH11 performance. Software- 
transparent to all DEC operat¬ 
ing systems. Easy PROM change 
enables quick upgrade to DH-11 
performance. Saves one slot 
per 16 lines. 



New economical DHII-type 
multiplexer. 

Lowest cost, high- 
performance communications 
MUX Priced way less than DEC'S 
DZ11. with DMA to boot. 16 RS- 
232 lines per board, modem con¬ 
trol included. Can use H317 
distribution panel Transparent 
to PDP-11 software: Emulex 
software on VAX 


*Price each in 100 quantities All Emulex 
disk. tape, and communications products 
can be combined to reach quantity price 
breaks 


EMULEX 

The genuine alternative 
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TABLE 5. 

DATA DESCRIPTION LANGUAGE FOR NIP DATA BASE 

IHPRS DBPAR Parameter File Listins 09-Nov-81 17:35 

Parameter file! DAYUK.PAR 3 Blocks 

Data file! DAYUK.DAT 10 Blocks 

Key file! DAYUK.KEY 2 Blocks 

Description! DAILY WORK HRS 

Control itea nuaber! 8 Haxiaua nuaber of records! 50 

Nuaber of headings! 0 Nuaber of bvtes per record! 96 

Print Foroat 

(lHtr 2</>) 


Nub Description 

Fat 

ALR Key 

Edit Range 

1 EHP. # 

13 

Y 

* i 

1 

to 

100 

2 MONTH 

12 

Y 

♦ 2 

1 

to 

12 

3 DAY 

12 

Y 

* 3 

1 

to 

31 

A JOB t 

2A1 

N 

t 4 




5 HRS. UORKED 

F5.1 

H 





6 UNITS COMPLETED 

F4.0 

H 





7 EHP. NAME 

20 A1 

H 


9 

to 

1 

8 JOB DOLLARS 

F7.2 

N 


9 

to 

1 

9 JOB DESCRIPTION 

20 A1 

H 


9 

to 

1 

10 STANDARD HRS. 

F5.1 

H 


9 

to 

1 

11 HRS. VARIANCE 

F5.1 

H 


9 

to 

1 

12 STD. DOLLARS 

F7.2 

H 


9 

to 

1 

13 1 VARIANCE 

F7.2 

H 


9 

to 

1 

14 1 VARIANCE 

F6.1 

H 


9 

to 

1 


TABLE 6. 

IHPRS BT RUF CORPORATION 


DBTRAN DHL DIRECTIVE FILE LISTING OF DAYUK1.TRN 
PARAMETER NAHE FOR FILE NUHBER 11 DAYUK.PAR 

PARAMETER NAHE FOR FILE NUMBER 2! EHP.PAR 

PARAMETER NAME FOR FILE NUMBER 3! STD.PAR 

calculations: 

NUMBER FORMULA 

1 1M=1R5I2R3 

2 1?10=IP6I3B3 

3 1R11-1B10-1B5 
A 1B12=1B10«2B3 

5 1013=1812-198 

6 1P1A=1R13/1R8*<100> 

DHL TRANSACTION INSTRUCTIONS! 


SEQ. 

ALPHA 

T1 

T2 

T3 

T4 

CQHHANH 

NAME 

TRAN. 

♦/SEQ. 

♦/SEQ. 

♦/SEQ. 

♦/SEQ. DESCRIPTION 

ASET1 

LNKVIA 

2 

1 



LINK FILE 2 TO 1 VIA ENPf 

ASET2 

LNKVIA 

3 

1 



LINK FILE 3 TO 1 VIA JOB* 

BEGIN 

INPUT 

1 

1 

3 

STOP 

INPUT EHP ». MONTH t DAT 

EHP1 

GETREC 

2 

BEGIN 



GET EMP NASTER RECORD 

EHP2 

PRT 

2 

2 

2 


PRINT EHP. NAHE 

J0B1 

INPUT 

1 

4 

6 

BEGIN 

INPUT JOB 1. HRS. UNITS 

J0B2 

GETREC 

3 

J0B1 



GET JOB NASTER RECORD 

J0B3 

PRT 

3 

2 

2 


PRINT JOB NAHE 

J0B4 

HOVE 

1 

7 

2 

2 

HOVE NAME TO NIP RECORD 

J0B5 

HOVE 

1 

9 

3 

2 

MOVE JOB DESC TO UIP REC 

J0B6 

CALC 

1 

6 



CALCULATE NIP PERFORM. 

JOB? 

WRITE 

1 

3 

STOP 


URITE UIP RECORD (DAYUK) 

J0B8 

GOTO 

J0B1 




GOTO NEU JOB INPUT. CALC 

STOP 

END 





END OF JOB 


DESCRIPTION 

DOLLARS=HOURS*RATE 

STD. HRS.=UNITSI(STD. HRS. PER UNIT) 
HR. VARIANCE-STD. HRS. - HRS. UORKED 
STD. DOLLARS=STD. HRS.IRATE 
t VARIANCE-ISTD. »>-<JOB t> 

Z VAR.=(» VAR./JOB 1)1100. 


For demonstration purposes, I have selected the in¬ 
teractive reporter from the battery of IMPRS reporting 
facilities. Table 7 illustrates the ease of reporting and select¬ 
ing break totals. The user can select sub-sets of data for 
reporting from his data base with the use of up to 100 com¬ 
binations of <AND>, <OR>,or <NOR>. 

Table 7 illustrates only a small part of the possible 
reporting required for labor performance which can be ac¬ 
complished from the DAYWK.DAT file. 

SYSTEM DESIGN TESTING WITH IMPRS 

Because of its relational orientation. IMPRS users are 
not required to define all data and potential uses that will be 


required before they can efficiently design their system. The 
past inflexibility of the hard-linked tree and plex approaches 
have forced costly unnecessary planning which seldom gets 
implemented in their rigid top-down design. The cost of 
changing the hierarchical software is so great that it forces 
the system planner to cover all possibilities, disallowing the 
use of the more productive modified top-down design ex¬ 
plained by Samid (4). 

In my 22 years of business system design and develop¬ 
ment of large information systems, I have never experienced 
where it was possible to define all logical relations and 
usages that would be required of the system throughout its 
life. The most productive system design and development 


Word 


ting 


* Word-11 by 

Data Processing Design, Inc. 
181 W. Orangethorp Avenue 
Placentia, CA 92670 


On Track Systems Provides: 

• Sales 

• Service 

• Installation 

• Demonstrations 

• Training 

• Consulting 


At your 
convenience! 

At your 
office! 


On Track 
Systems, Inc. 

P.O. Box 245 
Ambler, PA 19002-02 
(21S) 542-7133 
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NEVER CONSIDERED 

I EMU LEX ON PRICE. 


Consider the products and prices below: 

You’ll soon see that Emulex is as unbeatable on price as we are in quality and perfor¬ 
mance. Included are two new Winchester disk controllers with remarkably high performance 
and reliability (MTBF over 70,000 hours). 

All Emulex Q-bus tape and disk controllers have the same microprocessor architecture 
and all the key features of our PDP-11 and VAX-11 products, including error correction, micro¬ 
diagnostics, and software transparency. Price our performance. Write or call: Emulex Corpo¬ 
ration, 2001 Deere Ave., Santa Ana, CA 92705; (714) 557-7580; TWX 910-595-2521. 

Outside Calif.: (800) 854-7112. 

For immediate off-the-shelf delivery, call our national distributor First Computer Corporation. 645 Blackhawk Dr. Westmont. IL 60559, (312) 920-1050 
In Europe Emulex Corp . 10th floor. Cory House. The Ring. Bracknell. Berkshire. England Telephone 0344-84234. Telex 851-849781 


SC01 (RM02/05. RP06) 



Put big SMD drives on your 
LSI-11. 

Links Q-bus with 1-2 SMD- 
type drives. Software transparent 
& media compatible with DEC 
RM02, RM05, RP06. Features 3- 
sector data buffer. 32-bit ECC, 
up to half a billion bytes capacity. 
Over 1500 units in service! 


SC02 (RL01/02, RP02/03) 
SC02 (RK06/07) 



Low cost for smaller-sized disks. 

Single quad-board inter¬ 
faces LSI-lls to 8" & 14" SMD 
hard disk drives. Same great 
SCOI-level performance in most 
applications. Software transpar¬ 
ent. Full 32-bit ECC, self-test, 512- 
word bootstrap, real-time clock 
control, and bus terminators. Mix 
and match drives on one con¬ 
troller. 72,000 hours MTBF! 


SC04 (RL01/02) 
SC04 (RK06/07) 



New! ANSI interfacing for 8" 
Winchesters. 

Supports up to 8 drives per 
single quad-board controller. 

Fits into any single LSI-11 back 
plane quad slot. Same design, 
performance, and high reliability 
as the SC02. 


TC01 (NRZ) 
TC01 (PE) 



Q-bus embedded dual-density 
tape controller. 

Ftandles all open-reel 
half-inch tapes-800/1600 bpi. 
operating at 12.5-75 ips. Com¬ 
patible with DEC’S TU10/TM11. 
Daisy-chain up to 4 drives. Firm¬ 
ware includes a self-test and 
extended diagnostics. Fully 
embedded. 


EMULEX 

The genuine alternative 


















page 22 April 1982 

RST5PR0FESSI0NAL*STSPR0f^l0NAU*ST^0fESSI0NALRSTSPR0FESSI0NALRS73PR0FESSI0NAlJ*ST^ 


TABLE 7. 

IRPT 

--IHPRS-- 
by Ruf Corporation 

Enter Manager parameter file naoe! DAYMK 


Data file is DAYWK.DAT 
Description is DAILY WORK HRS 
Km file is DAYMK.KEY 
t Records= 10 

t Deletes= 0 
Control total= 20.00000 

Function codes are! 

<0> Print this tenu 

<1> Sort Keys <3> Cha. key* sort l print 
<2> Get t print <4> End 
Function^ T 1 

Sorting • • » Please wait 
Function ? 2 

Enter <1> for report defaults 
Top-of-f ;re available <l>=yes 1 
Enter itet outers to include in report 
Itet no. 7 
Itet no* 9 
Itet no. 8 

Enter <1> for itet total 1 
Itet no. 13 

Enter <1> for itet total 1 
Itet no* 14 

Enter <1> for itet total 
Itet no. 

Enter niaber of breaks 1 
Itet no. 1 

Enter <1> for pate chanse after break 
Enter <1> for totals only 
Enter <1> to print all 1 


05-N0V-80 

EHP. NAME $ VARIANCE 

JOB DESCRIPTION Z VARIANCE 

JOB DOLLARS 


RUFt JACOB 

ASSEMBLING 

45.00 

5.00 

11.1 

RUF* JACOB 

DRILLING 

41.00 

-1.00 

-2.4 

RUF» JACOB 

FILIN6 

50.00 

5.00 

10.0 



136.00 

9.00 


MEDDLE* FORREST 

CUTTING 

63.00 

-9.00 

-14.3 

WEDDLE. FORREST 

DRILLING 

49.50 

-13.50 

-27.3 

MEDDLE» FORREST 

FILING 

55.80 

-6.30 

-11.3 



168.30 

-28.80 


MEDDLEr RUTH 

DRILLING 

36.00 

-20.00 

-55.6 

MEDDLE* RUTH 

FILING 

40.00 

-13.60 

-34.0 

MEDDLE* RUTH 

RASPING 

24.00 

4.80 

20.0 

MEDDLE* RUTH 

SMEEPIN6 

52.00 

-12.00 

-23.1 



152.00 

-40.80 




456.30 

-60.60 



philosophy that has worked effectively over the years is il¬ 
lustrated in Figure 8. the top-down loop-back method, used 
at Ruf Corp. In the design phase, the analyst defines the in¬ 
formation system components, simulates their desired ar¬ 
rangement, and determines the feasibility of the planned 
system. These steps are repeated until the best system plan 
is selected which is technically, economically and opera¬ 
tionally feasible. During the development stage the same 
three steps are repeated with minimal loop back into the 
design area assuming this phase was completed satisfac¬ 
torily. It is very seldom, though, in real life, that there is not 
some loop back from the development to the design phase, 
no matter how extensively the design phase was performed. 


TOP-DOWN LOOP BACK 
METHOD 



FIGURE S. 


The low cost of developing application software with 
IMPRS provides the ability to effectively utilize the top-down 
loop-back method. With IMPRS. the analyst can perform a 
coarse requirement definition and a coarse system design, 
then proceed to the development stage to test out certain 
design assumptions. He can therefore locate potential 
system problems, loop back, and retune his system design 
resulting in considerable overall savings. 

This guided trial and error approach is not new to us. 
Engineers throughout the ages have developed scale models 
of their planned constructions to test the various design 
assumptions. It would definitely have paid off if this method 
had been used in the design of the catwalk of the Kansas 
City Hyatt Regency Hotel. 
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SUMMARY 

The data base management systems of the 80 s must 
be designed to interact with the real world. They must be 
flexible, providing for logical access and reporting, ease of 
future linkage and change. These qualities are inherent in 
IMPRS, a Relational Data Base Management System 
(RDBMS). 

Because of these qualities, IMPRS users are able to 
isolate sub-areas and develop them with the assurance of 
future linkage and minimum modification. 

Martin (6) says. “For the end user to program, data 
must be organized and represented in simple fashion. Soft¬ 
ware engineering, the process and logic of data, must be 
minimized' while information engineering, the organizing of 
data, must be maximized”'. 

Relational data base technology linked with data 
manipulation and query language capability will have a 
significant effect on the characteristics of our organizations. 
Ultimately, the availability of on-line information at much 
reduced cost will alter the role of management. The RDBMS 
and high-level languages will bring the power of the com¬ 
puter closer to the user. Computer hardware design will ac¬ 
comodate the techniques of the relational data base along 
with higher level languages such as that available in IMPRS. 


At Ruf Corporation we have a motto which states, "We 
work smarter and our software works harder for you", We 
have accomplished this with IMPRS. a relational data base 
management system for the 80 s. 
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XOREN IPL-IL. 

...THE SOFTWARE PACKAGE WHICH TRANSFERS FILES... 
...BETWEEN DEC PDP-ll’s LSI-ll’s&VAX-ll’s... 

...EVEN WHEN THEY HAVE DIFFERENT OPERATING SYSTEMS 


- INTERFACE HARDWARE - 

XOREN IPL-11 links the two CPU's together. No special 
interface hardware is required other than (in the case of remote 
computers) modems or acoustic couplers. Package operates via 
standard DEC terminal interface cards-DLII, DZ11, DH11,etc. 


-DATA INTEGRITY - 

CRC checking by software to CCITT recommendation V41. 
Recovers from errors by re-transmitting only the blocks 
affected. 


-TRANSMISSION - 

Asynchronous transmission with selectable speeds up to 9600 
baud. Any type of file including binary program files may be 
transferred in either direction (Note RMS files should first be 
converted to sequential files). 

- OPE RATING SYSTEMS - 

Versions of this package are available now to run under 
RSX-11M (and RSX-11M PLUS), RT-11, RSTS/E, (and 
equivalent versions of CTS-300 and CTS-500), TSX (and 
TSX-PLUS) and VAX/VMS in RSX-11M compatibility mode. 


EXISTING INSTALLATIONS — Over 100 copies of XOREN IPL-11 are currently installed. 



XOREN IPL-11 available from:-US: 


Note:- Xoren is currently setting up a 
network of distributors in the US. For 
further information contact 
Xoren Computing direct. 


EEC Systems 

286 Boston Post Road 

Wayland 

MA 01778,USA 

Tel (617) 358 7782 


UK & Europe: Xoren Computing Ltd 
28 Maddox Street 
London W1R 9PF 
England 

Tel (01) 629 5932 
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EOT HINTS & KINKS 

By David Spencer, Infinity Software Corp., 2210 Wilshire Blvd., Suite 801, Santa Monica, CA 90403 


1.0 INTRODUCTION 

Last issue I discussed an EDT initializer file. That in¬ 
itializer allows EDT to perform buffer manipulation and 
input/output. This article is dedicated to making the most 
out of EDT. 

2.0 EDT’S INTERNAL TABLE 

Each possible editing keystroke has a unique number 
for it in an internal EDT table (figure 1). EDT allows access to 
these keystrokes by both mnemonics (such as “GOLD CONT 
Z") and the internal number. There are some obscure 
keystrokes that are definable only by their internal number, 
and some can be defined, but cannot used at all! 

Besides being of general interest, knowledge of the 
numbering scheme provides us with some useful functions. 
First, we now know the limits to key definitions. No key 
that is not listed in the table may be defined for editing. 
Those keys which cannot be defined with a mnemonic but 
only with the internal number can be made of use. 

Another useful by-product of a list of the internal 
numbers is a compressed initializer file (figure 2). Although 
it is more difficult to read than the initializer file from the 
previous issue. EDT processes it faster. The increase in speed 
isn't overwhelming, only ten to fifteen percent. But a sav¬ 
ings can be made. There are those willing to accept a little 
unreadability for a quicker editing session start. 

3.0 INTERESTING SPECIAL FUNCTION DEFINITIONS 

There are some very specialized things you can do with 
defined keys. Here is a list of some that I have come across. 

1. Macro block comment. 

This command will ask some information and 
create a comment block for a macro routine. It is in¬ 
voked by typing “GOLD You will then be asked 
for the routine name and a short description. These 
will be combined with a comment block that be in¬ 
serted into the buffer. 

Insert the following text into the initializer file in 
the macro definition area. 

i+ 

I MACRO BLOCK COMMENT 

I- 

I = M_B_C 

SBTTL-/\-—-/\- 

: + 

: ”/ \~~ 

; DESCRIPTION: 

: "/\~- 

; CALLING SEQUENCE: 

; CALL " / \ " 


: INPUT PARAMETERS: 

; NONE 

; OUTPUT PARAMETERS: 

; NONE 

: SIDE EFFECTS: 

; NONE 

IZ 

Remember the “tZ” is uparrow Z and not CONT Z. 

Insert the following text into the key definition area. 
Because it is so long, I have had to break it up into several 
lines. The phrase “< wrap>" appears as a reminder not to 
hit carriage-return but that I simply ran out of space on the 
line and continued on the next. Type it all in as one continu¬ 
ing string. 

DEF K GOLD ; AS "SEL l?Routine: IZ< wrap> 

CUTSR = TEMPO SEL 17 Description: IZ< wrap> 

CUTSR = TEMPI PASTE = M_B_C< wrap> 

5<- ~ ~ / \ "*) 6DC PASTE = TEMPO 2("< wrap> 

6DC PASTE = TEMPI " 6DC PASTE = TEMPO) 4V. M 

2. Redefine <cr> to insert <sp>&<cr>. 

Basic Plus Two programs require ampsersands at 
the end of each line. Everybody forgets to put them 
on all the time. The cost for missing ampersands is 
usually an extra program compile. 

The following key definitions allow an "amper¬ 
sand" mode. Typing "GOLD &" will cause EDT to in¬ 
sert a space, ampersand, carriage-return for each 
carriage-return typed. Typing "GOLD < cr>" will ex¬ 
it ampersand mode. 

To add this command to EDT. insert the following 
text into the initializer file at the key definition area. 

DEF K GOLD CONT M AS "EXT DEF K CONT M AS TM.V 
DEF K GOLD & AS "EXT DEF K CONT M AS I &IZ IM. ” 

3. Change lines for dial-up. VTIOO's with AVO 

"GOLD CONT L” toggles the screen between 
twenty-two lines on the screen and twelve lines. 
This command is very nice for use over 1200 baud 
lines, and with VTIOO’s without AVO in 132 column 
mode. 

To add this command, insert the following lines 
into the initializer file at the macro definition area. 

! + 

I SCREEN UNES MACROS 

I- 

DEF M UNES_12 

I = UNES_12 










The most complete line of Interface Products for PDP-11, LSI-11 
and VAX* Computers with features you can’t get anywhere else 


For DEC users... 
MDB makes the difference! 



You can have it all! Along with the benefits of 
your DEC computer, you can get interface products 
that significantly extend the capability, flexibility 
and economy of DEC systems. MDB makes more 
DEC system boards than any independent man¬ 
ufacturer-some with plain vanilla compatibility; 
others with plain incredible performance boost¬ 
ing features. For example — 

• Line printer controllers for every major line 
printer, with complete self-testing capability and 
optional RS-422 “long lines!' 

• Peripheral device controllers for card readers, 
X-Y plotters, electrostatic printer/plotters and 
paper tape readers/punches. 

• DZll compatible multiplexors for LSI-11 and 
PDP-11 users; some combine RS-232 and current 
loop or RS-422 with a single board. 

• High speed synchronous serial interfaces; one 
DUP-11 compatible model has all bit and byte 
protocols even for LSI plus X.25 capability. 

• Inter processor links between Unibus computers 
or between Unibus and Q-bus. 

• System modules including DMA modules 
with RS-422, general purpose parallel 
and digital I/O inter¬ 
faces, an IEEE 488 bus ^ 

# 


controller and a programmable real time clock. 

• PROM memory modules, some with an on-board 
PROM programmer. 

• General purpose interface and bus foundation 
modules. 

• LSI-11 based subsystems and systems with capa¬ 
bilities like TU-58 cartridge storage and memory 
management. 

• LSI-11 system boxes with 22-bit addressing and 
switching power supplies. 

In addition to the DEC compatible products, 
MDB also manufactures comparable interfaces for 
Data General, Perkin-Elmer, Intel and IBM 
Series/1 computers. All MDB products are avail¬ 
able under GSA contract #GS-00C-02851. 

Give your DEC system all the benefits. Discover 
the difference MDB interface products can make. 


^Trademark Digital Equipment Corp. 


IV/ir^ri 1995 N. Batavia Street 

Orange. California 92665 
I I ILJLJ 714-998-6900 
SYSTEMS INC. TWX: 910-593-1339 


Circle 115 for referenced product. For complete 
information, circle 116 for PDP, 117 for LSI, 118 
for DG, 119 for P-E, 120 for Intel, 121 for IBM. 
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SE U 12 
SE CU 4:7 

DEF K GOLD CONT L AS "EXT UNES_22." 

IZ 

! 

DEF M LINES_22 

I = LINES_22 

SE U 22 
SECU 7:14 

DEF K GOLD CONT L AS "EXT UNES_12." 

IZ 

Add this line to the key definition area. 

DEF K COLD COVT L AS 'EXT UNES_12." 

4. Define keystrokes to insert words 

A very handy timesaver for typists. A whole series 
of keys could be defined to insert words into the 
text buffer. I have here a simple definition for 
“CONT N" to insert the word "the". This is really a 
poor key to use for this purpose, but it 
demonstrates how easily this can be done. 

Enter this line or something like it in the key 
definition area. 

DEF K CONT N AS "EXT Ithe IZ.” 

Some of these commands (like ampersand mode, word 
inserts) could be incorporated into the word delimiter 
macros. In other words, one could have some keystrokes 
defined to do useful things for programmers in program¬ 
ming mode, and other definitions for word processing 
mode. 

4.0 HINTS 

There are some things, when known, prevent waste 
and generally improve productivity. 

1. Avoid journals, use “/RO" 

If you are looking at a file exclusively in an inspec¬ 
tion mode, use the '7R0" switch. This switch will 
prevent any accidental changes to files, and not clut¬ 
ter up accounts with journal files. 

2. Understand the capabilities of "/RECOVER" 

Even though I just said not to create journal files, 
don't ignore them altogether. The “/RECOVER" 
command is VERY useful to restore work oblit¬ 
erated by system crashes, etc. The journal file is 
automatically retained with the initializer "GOLD Q" 
quit command. Review the EDT manual and try re¬ 
covering an edit or two. It's really fun to watch EDT 
work at warp speed reproducing your edit session. 

3. Learn how to define keys 

Whenever a key is defined, try to remember to 
enclose it in parens and terminate it with a period. 
This will allow the command to be executed with a 
repetition count. Even though this hint is in the EDT 
manual, most people don't bother to read it. 

4. Use "DEFINE KEY" for pseudo learn mode. 

Even though EDT doesn't have a "learn" mode. 


some things can be done with defining keys. For ex¬ 
ample. if you must transpose the sixth and seventh 
character of a number of lines, a key can be defined 
to do that. It's true that this isn't much, but it's the 
most we've got for now. 

5. Use lots of buffers and pull in files. 

Buffers are cheap, so there is no reason not to use 
plenty. Pull in as many files as you need. Borrowing 
old code is a real time-saver. 

6. Install Steven Edwards' EDT patches. 

Everything that I've seen Steve do has turned out 
to be quite useful. I recommend anything that he 
publishes. 

5.0 KINKS 

As with any new product, EDT does have a few prob¬ 
lems. I have to admit that most of my complaints are about 
the screen window handler. 

I don't know what the EDT development group has in 
store in the future, but I hope that they too have noticed 
these problems and are doing something about them. 

1. "GOLD ." refreshes whole screen, not selected 
region. 

Regardless of the region size, EDT will refresh the 
entire screen on this command. Needless to say, this 
is just a little wasteful. According to the manual the 
"GOLD ." command is supposed to cancel the se¬ 
lected region. It shouldn't be too hard to refresh only 
the inverted area on the screen. 

2. Cursor flash on end-of-line operations 

EDT has an annoying habit of temporarily moving 
the cursor to the beginning of the line on any opera¬ 
tion on the end of the line. Try it at a low baud rate. 
Type some text into the buffer, and go to the end of 
the line. Delete some characters, one at a time. On 
each delete. EDT will remove the character, move 
the start of the line, and then move back to the end 
of the line. 

3. Unnecessarily refreshes inside tabs 

This problem shows up at low baud rates and can 
be best demonstrated this way. Get into EDT. type a 
character, a tab. and another character. Next, go 
back to the start of the line and type another 
character. Notice that EDT will refresh the entire 
line all the way to the end. In reality, only the line up 
to the tab requires a refresh. This is a simple but an¬ 
noying problem. 

4. "XON" determines terminal type 

When EDT is instructed to operate in character 
mode (usually by the initializer file), it looks at the 
system terminal characteristics. After determining 
the that the terminal is a scope, EDT checks the 
value of "XON". EDT assumes the terminal is a VT52 
if set "NO XON”. And, of course, if "XON" is set, the 
terminal must be a VT100. 



CP/M personal computing option 
for the VT100. Option owners can 
choose from a large library of com¬ 
patible software. Exciting news ! 

CP/M® is a registered trademark of Digital Research. Inc. 



The New VT 101. Economical. The New VT125.Contains graphics The New VT 131. Advanced 
Same high quality as the VT100. package. Package can be retro-fitted, video, printer port, block mode. 

Digital chooses MTI 
for Authorized Terminal Distributor. 

That’s why MTI has all these new DEC terminals for you. 

A lot of terminal dealers wanted to be DEC Authorized Terminal 
Distributors, but few were chosen. We’re proud that MTI was one 
of the few. DEC knows MTI is a solid, growing company. We’ve been 
in business over 13 years. We’ve always been responsive to the latest 
developments in the industry and changing needs of our customers. 

As an Authorized Terminal Distributor, MTI will always have the 
latest DEC terminals in stock, ready for delivery. And whether you 
are buying, renting or leasing, our prices are hard to beat. Plus, we 
have the expertise to match your needs to the right piece of equip¬ 
ment. We know what we’re doing and we’re proud DEC knows it. 

MTI is your one source for all the terminals, peripherals, systems, 
applications expertise and service you’ll ever need. See why DEC 
chose us for one of its few Authorized Terminal Distributors. Call us. 

New York: 516/482-3500,212/895-7177,518/449-5959 
Outside N.Y.Sj 800/645-8016 
New Jersey: 201/227-5552 
Ohio: 216/464-6688 

Applications Specialists & Distributors, New York, New Jersey and Ohio. 

Intel, Texas Instruments, DEC, Dataproducts, Lear Siegler, Hazeltine, 

Diablo, Teletype, Racal-Vadic, Anderson Jacobson, General DataComm, 

Digital Engineering, Techtran, Cipher, Priam, SMS, Western Peripherals, 

Epson, Able Computer, Elgar and 3Com. 
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The problem here is that EDT does not interrogate 
the terminal to determine its true type. Thus, unless 
your VTIOO's are set with the "XON" characteristic, 
they are going to be used as VT52's. This also works 
the other way around. Therefore, it is VERY important 
to review those old "$TTY.CMD" files and make sure 
the your scopes are set to the proper types. 


6.0 WISH LIST 

Here is a list of 
some things that 
could be very use¬ 
ful for EDT. Mostly 
these are things 
that we had in 
VTEDIT or KED. 
but didn't make 
the transition to 
EDT. 


RSTS/E System Managers! 

Having trouble controlling usage of your computer 
system? Is there panic when passwords are 
changed? Have you ever bothered to change your 
passwords at all? System security is a serious prob¬ 
lem. Announcing PASMAN, the intelligent solution. 

PASMAN is a REACT account management substi¬ 
tute. Features include: 

• Performs the common REACT functions ac¬ 
count add and delete. Easier to use than REACT, 
and more “forgiving”. 

• New features never available before. Mass 
change of passwords for a single account, 
group, or the whole system! You supply the new 
password, or let PASMAN make one up. 

• Identify users by a logical grouping, such as AC¬ 
COUNTING, SYSTEM, or WORD-PROCESSING. 
Plus, each account has its own description. 

• Reports of what accounts belong to who. Pre¬ 
vent panic when passwords are changed. Iden¬ 
tify user growth patterns, be able to plan ahead 
for upgrades. 

In short, PASMAN will help you to get back control 
of your system. 

PASMAN is available for only $350 (going up to 
$500 on June 1st!). For more information on 
PASMAN or our other products like DUMPIT, our file 
dump utility, or ENTRY, our callable data entry 
subroutine, please call or write: 

INFINITY SOFTWARE CORPORATION 
2210 Wilshire Blvd. 

Suite 801 

Santa Monica, California 90403 
(213) 820-2702 
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1. Learn mode 

Both VTEDIT 
and KED had 
the ability to 
“learn" editing 
keystrokes for 
use in later 
editing. This 
would cut 
down on the 
need for defin¬ 
ing keys, and 
eliminate con¬ 
fusion of hav¬ 
ing to remem¬ 
ber all the EDT 
nokeypad 
commands. 

2. Default file ex¬ 
tensions 

It would be 
nice to be able 
to define a de¬ 
fault file ex- 
tention either 
with a patch 
or a command 
in the initial¬ 
izer file. 

3. View-All mode 

A TECO-like 
view-all mode 
would be very useful. Many times I have been frus¬ 
trated wondering where the spaces and tabs are. 

4. Standard initializer file for entire system 

Even though it's a little wasteful, I liked the idea of 
looking on the user account first for an initializer, and if 
not found, using the standard one from the system 
library account. 


5. Make the window handler smarter 

The routine that updates the screen (window 
handler) does wonderful things with a VT100 ter¬ 
minal. However, it could be made a little smarter. 

6. Allow EDT to terminate commands with any keypad 
key 

EDT will 
allow text 
search com¬ 
mands to ter¬ 
minate with 
any keypad 
key, why not 
EDT com¬ 
mands? This 
gets a little 
annoying at 
times. 

7. Ability to 
edit search 

strings/ 
commands 
It's real nice 
to see what 
the last search 
string was 
before search¬ 
ing again. The 
same for com¬ 
mands. 

8. TECO-like 
“memory" of 
last file edited 

Some peo¬ 
ple liked this 
feature, 
others can do 
without it. Is 
it of use? I 
would at least 
like it to be 
present so I 
could to patch 
it out if I 
didn't like it. 

9. Macro local 
symbol re¬ 
ordering 

Once again, 


10 . 


KED does this. Why not EDT? 

Have EDT create journal files in current account 
From a system management viewpoint, it 
gets pretty annoying having people litter li¬ 
brary accounts with journal files. Why not have 
the journal go to the same place the work file 
does. 
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BRAEGEN MPD HAS THE 
DISK STORAGE 
SUBSYSTEM YOU NEED 

INTRODUCING THE DSL-SERIES OF DISK STORAGE SUBSYSTEMS 


Braegen’s Minicomputer 
Peripherals Division is 
committed to providing 
the systems and 
peripherals 
DEC-users need. 


is? 


BENEFITS 

• Compatible with *DEC * PDP-11 and 
*VAX Massbus systems. 

• Provides *RM03/RM05 Emulation 
with enhancements. 

• Supports mixed drive sizes. 


• Supports DEC Dual Port Diagnostics. 

• Supports Overlap Seeks. 

• Fast delivery. 

• Local service and quantity discounts 
available. 


For more information on the DSL- Marketing Dept: 

Series of mass storage subsystems or FTNlDDncrcn 

any of our full line of DEC-compatible JjMMtljtl I 

computer systems, disk and tape sub- ”mPD 

systems, printers, memories, multiplexers 3320 East La Paima Avenu< 

. . .. 1 Anaheim, California 92806 

and more, please call or write: Telephone (7i 4) 520-9200 

“Be sure to ask about our field service force in over 50 cities nationwide.” 

'Trademarks of Digital Equipment Corporation 


BRREGEn 

mPD 

3320 East La Palma Avenue 
Anaheim, California 92806 
Telephone (714) 520-9200 
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inte lect 

^V' 

Your high 

data volume transfers 
to IBM or CDC centrals is 


quickly accomplished by the 
COMBOARD™ 1231. The 1231 
supports 56 Kilobaud data 
transfer rates over leased 
or private networks. 


Fast transfers between sys¬ 
tems means higher produc¬ 
tivity in critical applications 
such as computer aided 
design. Job turnaround is 
decreased and system utili¬ 
zation is increased. 


The COMBOARD1231 is the 


high speed model in the 
COMBOARD 
series. 




COT** 


oft*" 


COMBOARDs 
are 16 bit CPU based 
single board computers which 
plug straight into your DEC 


UNI BUS. Your COMBOARD and 
not the DEC host handles all the 
real-time interrupts and 
protocol processing associated 
with data communications. 


COMBOARD1231 is the 
leader in low overhead and 
high thruput IBM inter¬ 
connects. 

Contact your sales represen¬ 
tative at 614 421-2094 or mail 
the coupon today. 


SOFTWARE 

RESULTS 


1229 West Third Avenue 
Columbus, OH 43212-3090 
Telephone: 614-421 2094 


COMBOARD 1- Software Results Corporation 
DEC. UNIBUS™ Digital Equipment Corporation 


The following list shows the internal EDT key number, standard key number 
editing definition, and keystroke. 


FDT 


Key 

Definition 

Keystroke 


65535 

D-C. 

DELETE 


0 

L. 

0(4) 


1 

W. 

1(#) 


2 

EL. 

2(4) 


3 

C. 

3(4) 


4 

ADV. 

4(4) 


5 

BACK. 

5(4) 


6 

CUTSR. 

6(4) 


7 

PAGETOP. 

7(4) 


8 

(16 L) . 

8(4) 


9 

APPENDSR. 

9(4) 


10 

HELP. 

PF2(♦) 


11 


PF3(♦) 


12 

-V. 

ARROW-UPC) 


13 

♦V. 

ARROW-DOWN(♦) 

14 

♦c. 

ARROW r RlGHT(+) 

15 

-c. 

ARROW-LEFT(+) 

16 

SEL. 

.(•♦) 


17 

D+NL. 

PF4(+) 


18 

DEW. 

-(4 + ) 


19 

D+C. 

,(•♦> 


20 

No definition 

GOLD(*) 


21 


ENTER(♦) 


22 

(*M-C). 

GOLD 0(4) 


23 

CIIGCSR. 

GOLD 1(4) 


24 

D+EL. 

GOLD 2(4) 


25 

ASC. 

GOLD 3(4) 


26 

ER. 

GOLD 4(4) 


27 

BR. 

GOLD 5(4) 


28 

PASTE. 

GOLD 6(4) 


29 

EXT ?’Command: ’. 

GOLD 7(4) 


30 

FILLSR. 

GOLD 8(4) 


31 

CUTSR-DELETE PASTE. 

GOLD 9(4) 


32 

HELP. 

GOLD PF2(♦) 


33 

*8?’Search for: *i“8. 

GOLD PF3(+) 


34 

No definition 

GOLD ARROW-UP(+) 

35 

No definition 

GOLD ARROW-DOWN(+) 

36 

SHR. 

GOLD ARROW-RIGHT(♦) 

37 

SHL. 

GOLD ARROW-LEFT(+) 

3d 

RESET 

COLD .(4+) 


39 

UNDL. 

GOLD PF4(♦) 


40 

UNDW. 

GOLD -(4+) 


41 

UNDC. , 

GOLD ,(4+) 


42 

No definition 

GOLD GOLD(*) 


43 

(CUTSR-DELETE PASTEKS""). 

GOLD ENTER(♦) 

44 

No definition 

CONTROL §C) 


45 

TC. 

CONTROL A 


46 

No definition 

CONTROL B 


4/ 

No definition 

CONTROL C 


48 

TD. 

CONTROL D 


49 

TI . 

CONTROL E 


50 

No definition 

CONTROL F 


51 

No definition 

CONTROL G 


52 

BL. 

CONTROL H 


53 

TAB. 

CONTROL I 


54 

DBW. 

CONTROL J 


55 

DEFK. 

CONTROL K 


56 

“L. 

CONTROL L 


57 

*M. 

CONTROL M 


58 

No definition 

CONTROL N 


59 

No definition 

CONTROL O 


60 

No definition 

CONTROL P 


61 

No definition 

CONTROL 0 


62 

REF. 

CONTROL R 


63 

No definition 

CONTROL S 


64 

TADJSR. 

CONTROL T 


65 

DBL. 

CONTROL U 


66 

No definition 

CONTROL V 


67 

REF. 

CONTROL W 


68 

No definition 

CONTROL X 


69 

No definition 

CONTROL Y 


70 

EX. 

CONTROL Z 


71 

No definition 

GOLD CONTROL 

80 

72 

No definition 

GOLD CONTROL 

A 

73 

No definition 

GOLD CONTROL 

B 

74 

No definition 

GOLD CONTROL 

C 

75 

No definition 

GOLD CONTROL 

D 

76 

No definition 

GOLD CONTROL 

E 

77 

No definition 

GOLD CONTROL 

F 

78 

No definition 

GOLD CONTROL 

G 

79 

No definition 

GOLD CONTROL 

H 

80 

No definition 

GOLD CONTROL 

I 

81 

No definition 

GOLD CONTROL 

J 

82 

No definition 

GOLD CONTROL 

K 

83 

No definition 

GOLD CONTROL 

L 

84 

No detinition 

GOLD CONTROL 

M 

85 

No definition 

GOLD CONTROL 

N 

86 

No definition 

GOLD CONTROL 

O 

87 

No definition 

GOLD CONTROL 

P 

88 

No definition 

GOLD CONTROL 

0 

89 

No delinition 

GOLD CONTROL 

R 

90 

No definition 

GOLD CONTROL 

S 

91 

No detinition 

GOLD CONTROL 

T 

92 

No definition 

GOLD CONTROL 

U 

93 

No definition 

GOLD CONTROL 

V 

94 

No definition 

GOLD CONTROL 

w 

95 

No definition 

GOLD CONTROL 

X 

9b 

No definition 

GOLD CONTROL 

Y 

97 

No definition 

GOLD CONTROL 

Z 

98 

No definition 

GOLD CONTROL 

1C) 


99 

No 

definition 

GOLD 

CONTROL 

100 

No 

detinition 

GOLD 

CONTROL 

ToT“ 

No 

definition 

GOLD 

CONTROL 

102 

No 

derinition 

GOLD 

CONTROL 

103 

No 

definition 

GOLD 

SPACE 

104 

No 

definition 

GOLD 

! 

105 

No 

detinition 

GOLD 

" 

106 

No 

definition 

GOLD 

4 

107 

MO 

detinition 

GOLD 

$ 

108 

NO 

detinition 

GOLD 

t 

109 

NO 

definition 

GOLD 

t 

110 

No 

detinition 

GOLD 

' 

111 

No 

detinition 

GOLD 

( 

112 

No 

definition 

GOLD 


113 

No 

definition 

GOLD 

* 

114 

No 

detinition 

GOLD 

+ 

115 

No 

definition 

GOLD 

, 

116 

No 

detinition 

GOLD 

- 

117 

No 

detinition 

GOLD 


118 

No 

definition 

GOLD 

/ 

119 

No 

detinition 

GOLD 

0C) 

120 

No 

definition 

GOLD 

1C) 

121 

No 

definition 

GOLD 

2 (*) 

122 

No 

detinition 

GOLD 

30 

123 

No 

definition 

GOLD 

4 0 

124 

No 

definition 

GOLD 

50 

125 

No 

definition 

GOLD 

6 (*) 

126 

No 

definition 

GOLD 

7 (*) 

127 

No 

detinition 

GOLD 

80 

128 

No 

definition 

GOLD 

9 (*) 

129 

No 

definition 

GOLD 


1J0 

No 

detinition 

GOLD 

s 

131 

No 

definition 

GOLD 

< 

132 

No 

definition 

GOLD 

m 

133 

No 

detinition 

GOLD 

> 

134 

No 

definition 

GOLD 

? 

135 

No 

definition 

GOLD 

8 

136 

TC. 


GOLD 

A 

137 

No 

definition 

GOLD 

B 

138 

No 

definition 

GOLD 

C 

139 

TD. 


GOLD 

D 

140 

TI . 


GOLD 

E 

141 

No 

definition 

GOLD 

F 

142 

No 

definition 

GOLD 

G 

143 

No 

detinition 

GOLD 

H 

144 

No 

definition 

GOLD 

I 

145 

No 

definition 

GOLD 

J 

146 

No 

detinition 

GOLD 

K 

147 

No 

definition 

GOLD 

L 

148 

No 

definition 

GOLD 

M 

149 

No 

detinition 

GOLD 

N 

150 

No 

detinition 

GOLD 

0 

151 

No 

definition 

GOLD 

P 

152 

No 

detinition 

GOLD 

0 

153 

No 

definition 

GOLD 

R 

154 

No 

definition 

GOLD 

S 

155 

TADJSR.« 

GOLD 

T 

156 

DBL. 

GOLD 

U 

157 

No 

definition 

GOLD 

V 

158 

REF. 

GOLD 

W 

159 

No 

detinition 

GOLD 

X 

160 

No 

definition 

GOLD 

Y 

161 

EX. 


GOLD 

Z 

162 

No 

definition 

GOLD 

I 

163 

No 

detinition 

GOLD 

\ 

164 

No 

definition 

GOLD 

I 

165 

No 

definition 

GOLD 


166 

No 

detinition 

GOLD 

_ 

167 

No 

definition 

GOLD 


168 

No 

definition 

GOLD 

aC) 

169 

No 

detinition 

GOLD 

b (*) 

170 

NO 

definition 

GOLD 

cO 

171 

No 

detinition 

GOLD 

d C) 

172 

No 

definition 

GOLD 

eC) 

173 

No 

definition 

GOLD 

f O 

174 

No 

detinition 

GOLD 

gC) 

175 

No 

definition 

GOLD 

hC) 

176 

No 

detinition 

GOLD 

i C) 

177 

No 

detinition 

GOLD 

DO 

178 

No 

definition 

GOLD 

kC) 

179 

No 

detinition 

GOLD 

1C) 

180 

No 

definition 

GOLD 

mC) 

181 

No 

definition 

GOLD 

nC) 

182 

NO 

detinition 

GOLD 

oC) 

183 

No 

definition 

GOLD 

PC) 

184 

No 

detinition 

GOLD 

q (*) 

185 

No 

definition 

GOLD 

rC) 

186 

No 

definition 

GOLD 

sC) 

18/ 

No 

detinition 

GOLD 

to 

188 

No 

definition 

GOLD 

uC) 

189 

No 

definition 

GOLD 

vC) 

190 

No 

detinition 

GOLD 

wC) 

191 

No 

definition 

GOLD 

xC) 

192 

No 

detinition 

GOLD 

y O 

193 

No 

definition 

GOLD 

zC) 

194 

No 

definition 

GOLD 

I 

195 

No 

detinition 

GOLD 

1 

196 

No 

definition 

GOLD 

) 

197 

No 

definition 

GOLD 

“ 

198 

No 

detinition 

GOLD 

DELETE 

199 

No 

definition 

[unknown] 

200 

No 

detinition 

[unknownl 


• This is a keypad key. 

* This key can be defined by using the internal EDT 
number, but cannot be used by either case conversion 
constraints or key sequence interpretations. 


+ This key is a valid for editing, but can be defined 
using the internal EDT key number only. 


FIGURE 1. Default EDT Key Assignments 


LETTERS TO THE RSTS Pro . . . 

... is your column! Send us your comments, suggestions, or notes of interest 
to the RSTS community. We d enjoy hearing from you. 
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The following initializer file creates an editing environment 
identical to that made by the initializer file in the last issue. 
This initializer uses the internal Key number instead of the 
mnemonic to define keystrokes. EDT will start a little faster 
when using a compressed file. 


DEF M DELIM_PROG 

F=DELIM_PROG 

I 

DEF K 75 AS "EXT DELIM_WP." 

C; ISE EN WO '~Z 9ASC 10ASC 11ASC 12ASC 13ASC 27ASC I ()(],-+*/«' Z EX 
*Z 

DEF M DELIM_WP 

F=DELIM_WP 

I 

DEF K 75 AS "EXT DELIM_PROG." 

*Z 

C; ISE EN WO '~Z 9ASC 10ASC 11ASC 12ASC 13ASC 27ASC I ,'*Z EX 
“Z 

DEF M WIDTH_132 
I=WIDTH_132 

DEF K 94 AS "EXT WIDTH_80." 

SE SC 132 
*Z 

DEF M WIDTH_80 
I=WIDTH_80 
DEF K 
SE SC 
“Z 

DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
DEF K 
SE WR 
SE TR 
SE K 
SE M C 
DELIM_PROG 
F=MAIN 


94 AS "EXT WIDTH_132." 

80 

46 AS "-W." 

50 AS "+W." 

51 AS "PASTE®?'Put buffer: '." 

60 AS "PAR." 

68 AS "CUTSR=?'Cut buffer: 

34 AS " (-22V) ." 

35 AS "(+22V)." 

75 AS "EXT DELIM_WP." 

78 AS "CUTSR=DELETE PASTE®?'Rep buffer: ' 

79 AS "(-C D-C C UNDC)." 

94 AS "EXT WIDTH_132." 

95 AS "EXT CO SELECT TO®?'Cop buffer: ' ; F L." 
97 AS "EXT EX." 


117 

AS 

■l“-/\~"“ 2 -6C." 



118 

AS 

"s%--/\“~%%." 



137 

AS 

"EXT F®?'Buffer: '.." 



138 

AS 

"(C SEL W CHGCSR)." 



141 

AS 

"(SEL PAR FILLSR)." 



144 

AS 

"EXT INC ?'Input file: 

' =?' Buffer: 

'." 

147 

AS 

"EXT F L." 



148 

AS 

"EXT F=MAIN.." 



150 

AS 

"EXT WR ?'Output file: 

' -?' Buffer: 

•." 

152 

AS 

"EXT QUIT/SAVE." 



154 

AS 

"EXT SH BU." 




79 


FIGURE 2. Initializer Using Internal Numbers 


7.0 CONCLUSION 

My conclusion about EDT is: use it! It may be slightly 
flawed, but it’s a lot faster than VTEDIT. It’s a young prod¬ 
uct that will only become better. 

At the Los Angeles DECUS meeting I had the chance to 
talk with the EDT people. They insured me that future 
releases of EDT would correct some of the problems I men¬ 
tioned. Unfortunately, when we might see any future 
releases I couldn’t find out. 

I solicit any additional ideas, comments, and correc¬ 
tions. As space and volume permits. I will gladly share them 
with readers in future columns. Correspondence can be sent 
to: 


INFINITY SOFTWARE CORPORATION 

2210 Wilshire Blvd 
Suite 801 

Santa Monica, California 90403 

(213)820-2702 * 




TERMINALS 
MODEMS 
PDP 11/03, 11/23 + 11/44 
SYSTEMS 
With RL01S& RL02s 
or Winchester Drives 

INTERFACES 

FLOPPYS 

Std. & Custom Software 

SAVINGS SPOTLIGHT 

♦♦FREE** 

DEC Personal Computer 
with purchase of a computer syste 


CALL FOR LATEST PRICES 

(201) 231-9400 

Sale or Lease Avail. 

o UNITRDNIX 

CORPORATION 

197 Meister Ave • Somerville. NJ 08876 • TELEX 833184 
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How To Use BUILD 

VERSION: V7.1-01 

By Richard W. Hill, Software Techniques, Inc., Los Alamitos, CA 

No portion of this document may be reproduced for any purpose without the express permission of Soft¬ 
ware Techniques, Inc. 

The information in this document is subject to change without notice and should not be construed as a 
commitment by Software Techniques. Inc. Software Techniques. Inc. assumes no liability for any errors 
which may appear in this document. 


1.0 INTRODUCTION 

While designing the installation procedure for our new 
A/P System, I discovered a serious lack of documentation 
regarding the BUILD program supplied with RSTS. This arti¬ 
cle is an attempt to correct this problem. 

BUILD is designed to perform three basic functions: 

• Read an input control file. 

• Process the contents of that file. 

• Produce an appropriate command file for ATPK 
execution. 

The command file contains all of the commands 
necessary to build and/or patch a system. BUILD generates 
this command file by combining the responses to prompts 
with commands present in the control file. BUILD stores the 
responses to the prompts as values for various BUILD and 
user defined variables. I will refer to these variables as sym¬ 
bols or substitution symbols to avoid the confusion between 
the variables in the BUILD program and these special control 
file variables. As each symbol is encountered in the control 
file, it is replaced with the associated replacement value. The 
means of defining and identifying symbols will be discussed 
in more detail later. 

2.0 BUILD COMMANDS 

Seven commands are recognized by BUILD. Each com¬ 
mand is prefixed with a dollar sign and must be at least 
four characters long (including the dollar sign), with the ex¬ 
ception of $B00T which must be five characters long. 

The BUILD commands are: 

• $BOOT 

• $BREAK 

• $D0PAT 

• $END 

• $FORCE 

• $PATCH 

• $PR0MPT 

The first six commands are all used by BUILD for pat¬ 
ching purposes. The last command. $PR0MPT, is used for 
everything else. Due to the flexibility of the $PR0MPT com¬ 
mand, we will look at it before dealing with the patching 
commands. 

3.0 SUBSTITUTION SYMBOLS 

Substitution symbols in BUILD Control files are compos¬ 
ed of: 

• A tilda “ ~ ” 

• Symbol name (1 to 6 characters long) 

• A colon 


The replacement values for these symbols are character 
strings with a length of no more than twenty-six characters. 
A replacement value may be defined as null (length of zero). 

Substitution symbols and their replacement values are 
defined by BUILD and with the $PROMPT command in the 
control file. The default replacement values for a symbol are 
denoted by placing the replacement value between slashes 
"/” immediately following the symbol. This default replace¬ 
ment is only used when the symbol has not been defined. 

The following examples demonstrate the use of sym¬ 
bols, replacement values and default replacements. 

Assume that: 

OUT will be replaced by ' , SY:[10.21J' 

IN will be replaced by "MT0:[1.2]" 

MTMODE will be replaced by '/M0:2" 

The BUILD control file entry is: 

PIP -OUT:/NL:/ = ~ IN:/NL:/JUNQUE.IT ~ MTMODE7//W 

This line would be translated by BUILD to: 

PIP SY:[10.21] = MTO:[1.2yUNQUE.IT/M0:2/W 

Assume that: 

OUT is not defined 

IN will be replaced by "DM1:[1.2J" 

MTMODE is null 
The BUILD control file entry is: 

PIP ~0UT:/NL:/ = ~IN:/NL/JUNQUE.IT~MTM0DE:///W 

This line would be translated by BUILD to: 

PIP NL- = DM 1 :[1 .2JJUNQUE.it/W 

NOTE 

After the substitution symbol 
"MTMODE", we have placed a null default 
replacement and then the "/W" switch of 
PIP. This was done to ensure that the 
“/W" was not interpreted as the default 
replacement. If we had left out the null 
default replacement (//), then the "/W” 
would only have appeared if "MTMODE" 
was not defined. 

4.0 BUILD CONTROL FILES 

The BUILD control files may contain the following types 
of commands: 

• BUILD commands. 

• Indirect BUILD control file references. 

• ATPK commands recognized by BUILD. 

• General commands and text to be processed later by 
ATPK. 

BUILD will process each line read from the Control file 





DISC & UP! 



DEC 11 


* 


If you’re interfacing any 
popular drive to any DEC-11 
computer, contact DILOG 

for the largest selection of DEC-11 compatible disc and 
magnetic tape controllers! Over 20 available now. Several 
more to be announced soon. 


DILOG offers the widest range of 
single board DEC emulating disc 
and magnetic tape controllers for 
LSI-11,11/2,11/23, PDP-11 and VAX-11 compatibility. 

Dl LOG/DEC controllers: 

DISC 

• Winchester—5Vi", 8" and 14" 

• SMD—Storage Module 

• CMD—Cartridge Class 

• Lark—Cartridge Class 

• 2315/5440 Cartridge Class 

• Flexible Disc 
MAGNETIC TAPE 

• Vz" reel-to-reel NRZI/PE—Streaming or conventional 

• Vi" 3M Cartridge 

A wide range of emulations are offered. All fully supported 
by DEC operating systems. 


CORPORATE HEADQUARTERS 

12800 Garden Grove Blvd. • Garden Grove, Calif. 92643 

• Phone: (714) 534-8950 • Telex: 681 399 DILOG GGVE 

EASTERN REGIONAL SALES OFFICE 

64-A White Street • Red Bank, New Jersey 07701 

• Phone: (201)530-0044 

EUROPEAN SALES/SERVICE OFFICE 

12 Temple Square • Aylesbury, Buckinghamshire • England 

• Phone: 44-296-34319 or 34310 • Telex 837 038 DILOGIG 



DISTRIBUTED 


'Trademark Digital Equipment Corp. 
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in the following manner: 

1. All symbols are replaced by their respective replace¬ 
ment values. 

2. Indirect command files will be opened and the next 
command retrieved. 

3. BUILD commands which are the first thing on a line 
are processed. 

4. The commands to the BASIC editor. OLD. APPEND, 
and COMPILE, will be processed to generate com¬ 
mands for the appropriate language processor. 
BASIC-PLUS. BASIC-PLUS-2, or CSPCOM. 

5. Any other commands or text, will be placed as they 
are found in the Command file. 

5.0 RUNNING BUILD 

To run BUILD, log into a privileged account and enter: 

RUN [1.ZJBUILD 

BUILD will print its header and prompt the user for five 
responses, along with two optional prompts. 

(a) System Build <No> ? 

This prompt determines what kind of action 
BUILD will take when processing the control file. If 
the response is any text starting with “Y”, then 
BUILD will not issue the "Control file is ?” prompt. 
The input control file will be “BUILD.CMD”. found on 
the input device in account [1.2], used with system 
generation. 

If "NO” or <LF> is entered, then the control file 
will be specified by the user at the “Control File is ?" 
prompt. 

(b) Source Input Device <SY:> ? 

This prompt determines what device BUILD is to 
read the control file from. In addition this is where 
the input files for the installation procedure are 
copied from. 

The format for this entry is: 

Logfile = Device:/Switch 

The logfile specification is optional. If present it 
will be passed to ATPK for use as the logfile. The 
default logfile name is "SY:BLDnnn.LOG". where 
“nnn" is the current job number. 

If the input device is not specified it will default to 
the device from which BUILD was run. If this device 
is a private disk, then it will default to “SY:". 

All switches are optional and are used primarily 
for magtape devices. The valid switches are: 

• /DOS — Input magtape is in DOS format. 

Illegal switch if the input device is not magtape. 

• /ANSI—Input magtape is in ANSI format. 

Illegal switch if the input device is not magtape. 

• /DENSITYm — Input magtape has a density of n. 
Legal values are 800 and 1600. 

Illegal switch if the input device is not magtape. 

• /PARITY:xxx — Input magtape has a parity of 
xxx. 

Legal values are "ODD” and “EVEN”. 

Illegal switch if the input device is not magtape. 

• /DETACH — Detach before actual processing 
starts. 


(c) Library Output Device <SY:> ? 

This prompt determines on what device the 
library account resides. This device must be a disk. 
The default is "SY:". 

(d) Target System Device < SYO: > ? 

This prompt determines on what disk device the 
target system will be built. The default is "SYO:". 

(e) Library Account < [1.2] > ? 

This prompt determines on which account the 
library utilities (such as PIP. UTILTY, CSPCOM. TKB, 
etc.) are located. Any utilities installed by the BUILD 
procedure will be output to this account. BUILD will 
optionally create the account if it does not exist. 

(f) Control File is ? 

This prompt determines the main control file to 
be used by BUILD. This prompt is not issued if this is 
a system build (see prompt (a).) Unless otherwise 
specified. BUILD assumes this file is on the input 
device, in account [1.2], and has a file type of .CTL. 
There is no default for this filename. 

(g) Additional Control File is <None> ? 

This prompt determines if any additional control 
files are to be processed at the this time. If you wish 
to perform several installations at one time and the 
control files are all on the same device, then specify 
the name of the next control file. Otherwise just 
press <CR> or <LF> to start the actual build. 

6.0 PRE DEFINED SUBSTITUTION SYMBOLS 

The following substitution symbols are predefined by 
BUILD. 

• INPDEV — Input device. 

• INPUT — "INPDEV" + Input account. 

• LIBDEV — Library output device. 

• SYSDEV — Target system device. 

• LIBACC — Library account. 

• SYSTEM - "LIBDEV" + "LIBACC" 

• RUNLIB — "SYSTEM" unless ATPK was not found 
there or we are doing a system build, in which case 
it is "SY:[1,2]”. 

• SYSACC — "LIBACC" unless BUILD was chained to 
by PBUILD. in which case "SYSACC” is defined by 
PBUILD. 

• SYSDSK - "SYSDEV” + "SYSACC" 

• MTMODE — “/M0:2" if the input device is magtape. 
(No rewind on a file search). Otherwise it will be null. 

• LB — Current location of “LB:".’, set by the 
“$PROMPT LB" or the “$PROMPT ALB" commands. 

• PATLOC — Location of the patch files, set by a chain 
from PBUILD or by the "$PROMPT PATCH" com¬ 
mand. 

• SAVDEV — Location of the saved patched sources, 
set by a chain from PBUILD or by the “$PROMPT 
PATCH" command. Defaults to "SYSTEM” if the 
specified location was not on disk. 

• RTS.NM — RTS to compile programs against. This is 
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set by the "$PROMPT RTS" command. 

• DEXT: — Default file type, set by the "$PROMPT 
RTS" command. 

• CSPCOM — Hold result of “Use CUSP compiler" 
prompt (YES/NO). This is set by the “$PROMPT 
RTS" command. 

• OLB — Object library name for compiles, set by the 
"$PROMPT RTS" command. 

7.0 SPROMPT 

The $PROMPT command will cause BUILD to print a 
prompt and receive input pertaining to that prompt. This 
command will also assign a replacement value to a symbol. 
Both of these functions are determined by the parameters 
used in the command. 

The $PROMPT command has two basic formats. The 
first format is: 

SPROMPT xxx 

Where "xxx" is one of the pre-defined modifiers listed 
below: 

• I — Comment entry internal to the Control file. 

• ALB — Prompt for the location of LB: 

• LB — Prompt for the location of LB: 

• PATCH — Prompt for patching information 

• RTS — Prompt for default RTS information 

The other format is used for other special prompts, 
messages, and substitution symbol assignments. This for¬ 
mat is: 

SPROMPT String-1. String-2. Integer-1. String-3. String-4 

Where: 


• String-1 is the prompt to print 

• String-2 is the default to print 

• Integer-1 is a bit encoded flag word 

• String-3 is the default file specification 

• String-4 is the symbol 

7.1 SPROMPT — Format 1 

I will first discuss the five modifiers for the SPROMPT 
command, to see how they are used and what substitution 
symbols they define. 

7.1.1 SPROMPT ! - INTERNAL BUILD COMMENT. 

This command is used for internal comment entries 
within the BUILD control files. Any line starting with the 
"SPROMPT !" command will be ignored. This command is 
used to make comment entries which will not be included in 
the ATPK command file. 

7.1.2 SPROMPT ALB - PROMPT FOR THE LOCATION OF 

"LB:". 

This command prompts for the location of the logical 
“LB:". The result of this command is shown below. 

Locate logical UB:’ on <SY^1.0]> ? 

The default response to this prompt is the current loca¬ 
tion of "LB:" or “SY:[1,1]” if the logical was not defined. The 
response will be checked for validity. It must be a device 
and/or PPN specification only. If the specified account does 
not exist. BUILD will ask if you want to create it. 

If the Library output disk and the Target System disk 
are both part of the public disk structure then the logical 


RSTS/E SOFTWARE PACKAGES 


■ KDSS, a multi-terminal key-to-disk data 
entry system. (Also available for RSX-11M.) 

■ TAM, a multi-terminal screen-handling 
facility for transaction-processing applica¬ 
tions. (Also available for RSX-11M.) 

■ FSORT3, a very fast sort. Directly sorts 
RSTS/E files containing up to 16 million 
keys or records. Up to 70 times as fast as 
the RSTS-11 Sort package in CPU time. 

■ SELECT, a convenient, very quick package 
for extracting records that meet user-speci¬ 
fied selection criteria 

■ BSC/DV, a device driver for the DEC DV11 
synchronous multiplexer that handles most 
bisynchronous protocols. 


■ COLINK, a package that links two RSTS/E 
systems together using DMCIIs. Supports 
file transfers, virtual terminals, and across-the- 
link task communication. 

■ DIALUP, a package that uses an asynchro¬ 
nous terminal line to link a local RSTS/E 
system to a remote computer system. Sup¬ 
ports file transfers, virtual terminals, and 
dial-out through a DN11. 

(The performance-critical portions of the first 
five packages are implemented in assembly 
language for efficiency.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington, Massachusetts 02173 
(617) 861-0670 
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DEAR 

RSTS 

MAN: 




Send questions to: DEAR RSTS MAN. P.0. Box 
361, Fort Washington. PA 19034-0361. 


DEAR RSTS MAN: 

I have an 11/44 system which un¬ 
fortunately came with dual TU58 drives 
(DECTAPE-II tape cartridges). I have yet 
to find a use for these little wastes-of- 
money except for running diagnostics, 
as they are bootable. If I could put the 
RSTS initialization code on one, I could 
boot-up a TU58 (I even have the boot¬ 
strap ROM chip) to the Option: level to 
re-init a pack, do a SAVRES, or 
whatever. They seem to hold about 500 
blocks or so, they should be large 
enough. 

My question is: How can I put a boot¬ 
able copy of INIT.SYS on a DECTAPE-II 
cartridge? I’ve tried to HOOK.SAV it 
without success. 

Bret A. Bailey, Data Proc. Mgr. 

Econ. Oppor. Assn., Inc. 

Brookville, PA 


Dear Bret: As far as we know, there is no 
supported (or otherwise) way to do what 
you want. You can write on it with FIT, 
but that’s the RT11 file structure, and 
HOOK doesn’t know about it. If you 
could de-assemble the boot block ... 

DEAR RSTS MAN: 

I just received my first VT131 and it 
doesn’t work right. My Terminal Vendor 
told me that a VT131 was a VT100 with 
advanced video and a printer port that 
could do block mode but didn’t have to. 
He reported that they had decided to 
carry these rather than the VT102 
which doesn’t do block mode. They 
thought that the very small price dif¬ 
ferential between the VT102 and VT131 
wouldn’t matter. 

Why doesn’t my software work prop¬ 
erly with the VT131? VT 

Dear VT: DEC has done it again! As you 
know DEC VT terminals return a 
special escape sequence when queried 
by escape sequence from a program. 
The sequence can be used to tell ter¬ 
minals apart (i.e. VT52’s, VT50’s, 

VTIOO’s, etc.). Although this terminal 
will respond to most commands like a 
VT100 with advanced video, the escape 
sequence it returns upon a query is dif¬ 
ferent! 

A VT100 returns ESC[?1;nC where n 
tells you about the terminal attributes 
(Advanced video, printer port). The 
VT131 returns ESC[?7C which is quite 


DEC 

SYSTEMS 

& 

COMPONENTS 

C.D. SMITH & 
ASSOCIATES, INC. 
12605 E. Freeway, 
Suite 318 

Houston, TX 77015 
(713) 468-2384 
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different from the VT100. Because the 
1; is missing from the VT131 you will 
have to re-program your code to rec¬ 
ognize the VT131. A shame indeed that 
DEC couldn’t have used some com¬ 
patible way to tell us it is a VT131. 
Worse, some of my code gives bad and 
unexpected errors when it encounters 
a VT131. ILLEGAL NUMBER AT LINE 
xxx. Maybe the VT102 is a better buy .♦ 


"LB:” will be removed and added with the new specification 
Otherwise a local device assignment for “LB:” will be made 
in the ATPK command file. 

Once the “$PR0MPT ALB" command has been ex¬ 
ecuted. additional occurances of this command will be ig¬ 
nored. 

This command will define the substitution symbol "LB" 
with the value of the new logical "LB:". 

7.1.3 $ PROMPT LB — PROMPT FOR THE LOCATION OF 

"LB:”. 

This command prompts for the location of "LB:". It 
works the same way as does the "$PROMPT ALB" with one 
exception, if either the Library output disk or the Target 
system disk is a private disk then this command will be ig¬ 
nored. 

Once the “$PR0MPT LB” command has been executed, 
additional occurances of this command will be ignored. 

7.1.4 $ PROMPT PATCH — PROMPT FOR PATCHING 
INFORMATION. 

This command is used to determinine if patching is to 
be done during the installation, and if so where the patch 
files are located. 

The “$PR0MPT PATCH" command will cause the 
following prompts to be issued. 

Function (Build/Patch. Patch, Build) < Bui Id/Patch > ? 

Patch file input location <SY:[200.200]> ? 

Save patched sources <No> ? 

Write patched sources to <SY:[200,200]> ? 


7.1.4.1 Function (Build/Patch, Patch, Build) 

< Build/Patch > ? 

If the user enters "BUILD", then the remainder of the 
prompts are skipped. During the processing of the rest of 
the BUILD control file, the $D0PAT command will be ig¬ 
nored. but the other patching commands will be executed as 
normal. 

If the user enters "PATCH", then only patching will be 
done. During the processing of the rest of the BUILD control 
file everything but "$PROMPT", "$D0PAT", and “$BREAK" 
commands will be ignored. 

If the default response is taken then both patching and 
the build will be done. 

7.1.4.2 Patch file input location <SY:[200.200]> ? 

This prompt determines the location of the patch com¬ 
mand files. The specified location must be a disk device (use 
[1.2JPATCPY to copy the files from tape to disk first). The 
default location is “SY:[200,200]". 

7.1.4.3 Save patched sources < No> ? 

This prompt determines if you desire to save the 
patched BASIC-PLUS sources. The only sources which will be 
saved are the BASIC-PLUS sources which are patched with 
CPATCH using the $PATCH command. 

7.1.4.4 Write patched sources to <SY:[200,200]> ? 

If you desire to save these sources then this prompt is 
issued to determine where the patched sources will be writ¬ 
ten to. The default response is "SY:[200,200]". This location 
does not have to be a disk device. 























You can get more from your 
RSTS system with MAS-M. 


MAS-M is the application 
software system from Martin 
Marietta Data Systems that can 
help you do more with your 
DEC hardware. That’s because 
MAS-M is the on-line software 
system that gives you much 
more than you’d expect from 
packaged software. 

More Flexibility. 

MAS-M's modular design lets 
you choose from 10 different ap¬ 
plication systems: 

□ Accounts Receivable 

□ Accounts Payable 

□ General Ledger 

□ Order Processing 

□ Invoicing 

□ Inventory Control 

□ Inventory Accounting 

□ Bill of Materials 

□ Material Requirements 
Planning 

□ Purchasing 

You can implement just the 
modules you need to satisfy 
your demands. And no matter 
which combination you choose, 
the MAS-M system is always 
fully integrated. 

MAS-M’s flexible design also 
makes it easy to install, and 
simple for your users to operate. 
And, since MAS-M is written in 


BASIC-PLUS-2, and based on 
the RMS-11 data management 
system, the software is fully 
compatible with your current 
RSTS/E operating system and 
DEC software. 

More Control. 

You can count on MAS-M for 
more comprehensive data accu¬ 
racy and security, too. 

MAS-M’s powerful transac¬ 
tion processing MONITOR gives 
you maximum control over your 
data—from start to finish. User 
passwords and menu selections 
are checked against user secu¬ 
rity profiles. Data entry valida¬ 
tion is also standardized in the 
MAS-M MONITOR, so any in¬ 
valid data can be corrected 
before it reaches your applica¬ 
tion program. 

More Productivity. 

MONITOR is also an impor¬ 
tant tool in developing new ap¬ 
plications. You can use 
MONITOR to create input 
screens and validation rules on¬ 
line. And, MONITOR can help 
you improve programmer pro¬ 
ductivity by providing a stand¬ 
ard framework for input of code 
that minimizes the difficulties of 


user interface and terminal 
characteristics. 

More Support. 

You can count on Martin 
Marietta Data Systems for sys¬ 
tem development and im¬ 
plementation, comprehensive 
training, and clear, concise doc¬ 
umentation. We can also pro¬ 
vide an extensive Maintenance 
Service to support your MAS-M 
system. 

What it all adds up to is a 
packaged software system that 
can give you everything you 
need to get your jobs done. And 
more. Write or phone us today, 
and we’ll tell you more about 
how the MAS-M software sys¬ 
tem can work for you. 



MAS-M 


The Software 
System That Can 
Help You Do More. 


MARTIN MARIETTA 
DATA SYSTEMS O 


Martin Marietta Data Systems 
Marketing Services, R/H 
6303 Ivy Lane. Greenbelt, MD 20770 
(301) 982 6500 
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The "$PROMPT PATCH" command defines the follow¬ 
ing substitution symbols: 

• PATLOC — Location of the patch command files. 

• SAVDEV — Location of the saved sources. If they 
are not being saved to a disk device then this 
becomes the same as the substitution symbol 
“SYSTEM". 

This command will be ignored after being used once or 
when BUILD has been chained to from PBUILD. 

7.1.5 $PROMPT RTS - PROMPT FOR RTS INFORMATION. 

This prompt determines under what run-time system 
ATPK is to start up the controlled job performing the build. 

The prompt from this command is: 

Run-Time System < RSX > ? 

The default response is the current system default run¬ 
time system. An error will be printed and the prompt issued 
again if any of the following are true: 

• The specified run-time system was not found in 
"SY:[0,1]" with a file type of “.RTS". 

• The specified run-time system has not been added 
as a keyboard monitor. 

• The default file type for executable programs under 
this run-time system is not ".TSK” or “.BAC". 

If the selected run-time system was "RSX" or 
"BP2C0M" then a second prompt is issued to determine 
whether to use the CSPCOM compiler or not. This prompt is: 

Use the CUSP compiler CSPCOM' < Yes> ? 

If the selected run-time system was "RSX" then the 
default for this prompt is “YES", otherwise the default is 
"NO". 

If the run-time system has not been installed, BUILD 
will ask if you want it installed. Respond with "YES" to have 
BUILD install it. 

Upon completion of the $PROMPT RTS command, the 
following symbols are defined. 

• RTS.NM — The specified run-time system name. 

• DEXT - The default RTS file type (“.TSK” or ".BAC") 

• CSPCOM - “YES" or "NO" depending if CSPCOM will 
be used or not 

• OLB — Either "CSPCOM” if CSPCOM is being used, or 
the RTS name 

Once the "$PROMPT RTS" command has been executed 
additional occurances of the command are ignored. 

7.2 $ PROMPT — Format 2 

The second format of the $ PROMPT command allows 
the assignment of user defined substitution symbols for use 
in processing in the remainder of the control file. I will 
discuss the various arguments for the second format of the 
SPROMPT command. Then at some common uses of this 
command. The format is: 

$PROMPT String-1. String-2, Integer-1. String-3, String-4 

Where: 

• String-1 is the prompt to print 

• String-2 is the default to print 

• Integer-1 is a bit encoded flag word 

• String-3 is the default file specification 

• String-4 is the symbol 


7.2.1 STRING-1 — THE PROMPT TO PRINT 

This argument is a character string which is printed as 
the pseudo prompt. The characters are all left just as they 
were found in the control file. Leading and trailing spaces 
and tabs however are removed. 

7.2.2 STRING-2 — THE DEFAULT VALUE TO PRINT 

This string is printed as the default response in the 
prompt. This string will be enclosed in angle brackets ("< ", 
">".) It remains unaltered by BUILD and is only used as the 
printed default. No default is printed if this string is null. 

7.2.3 INTEGER-1 - BIT ENCODED FLAG WORD 

This integer tells BUILD how to process the $PROMPT 
command. With the various bits of this word set and/or 
cleared, BUILD can force the input to be a file specification 
or part of one, a specific response, or just an informational 
prompt. If this argument is not a valid integer BUILD will 
abort. 

The bit values are: 

• 0 (1) — Lookup filename 

If this bit is set. then BUILD will verify that the 
file or account currently exists. Otherwise, the file or 
account will not be looked up. If the file was not 
found. BUILD will re-prompt for a correct filename. 

• 1 (2) — Allow wildcards 

If this bit is set wildcards are allowed within the 
filename (but not the PPN.) If this bit has been 
cleared, then no wildcards are allowed. 

• 2 (4) — Allow/Disallow device specification 

If this bit is set, then a device name is allowed 
within the entered file specification. Otherwise no 
device specification is allowed. 

• 3 (8) — Allow/Disallow Ppn 

If this bit is set, then an account number is allow¬ 
ed within the file specification. Otherwise no ac¬ 
count number is allowed. 

• 4(16) — Expand null Device/PPN to SY: and current 
account 

If this bit is set, then if the user does not enter a 
device specification, it will be expanded to SY:. If an 
account is not specified, then it will be expanded to 
include the current account. 

• 5 (32) — Disallow/Allow filename 

If this bit is set, then a filename will not be per¬ 
mitted. Only a device and/or PPN will be allowed 
depending on the status of bits 2 and 3. Otherwise, 
a filename will be allowed. 

• 6 (64) — Check input against values 

If this bit is set, then the input will be checked 
against the values following the $PROMPT com¬ 
mand line. The values must be in the following for¬ 
mat: 

n 
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Response-1 = Replacement-Value-1 
Response-2 = Replacement-Value-2 


Response-n = Replacement-Value-n 

Where "n" is the number of valid responses allow¬ 
ed. If the user response is found in the list of valid 
responses, then the replacement value opposite it 
will be used as the replacement value for the 
substitution symbol specified in the argument list. 
Otherwise the valid responses will be listed and the 
prompt will be re-executed. 

• 7 (128) — Check for a number in range 

If this bit is set, then BUILD will allow a number 
to be entered by user. It must fall within a specified 
range. The range is specified in an argument follow¬ 
ing the command line, with the format: 

Low-limit > < High-Limit 

The number entered, if valid, will be converted to 
a character string and be used as the replacement 
value for the substitution symbol specified in the 
argument list. 

• 8 (256) — Create account if not already there 

If this bit is set. then BUILD will ask the user if he 
wishes to create the account number entered if it 
does not exist. For this function to be enabled bits 0 
(lookup filename) and 5 (filename not allowed) must 
be set. 

• 9(512) —Not Used 


Two 

satisfied 

Amcor customers 


“we write 
everything 
with 

Ambase” 



Don Chick and Greg 
Jones. Automation. Inc.. 
Omaha. Nebraska. 
Service Bureau, using 
the power of AMBASE 
in an integrated 
environment with 
AMCOR's Accounting 
and Business Control 
Application products. 


‘AMBASE training 
was well presented 
and made our use of 
AMBASE easier. 

We are using 
AMBASE to write 
custom programs and 
customize modules 
within other products. 
It takes less time and 
we write everything 
exclusively with 
AMBASE. 

We are able to 
put out a report in a 
matter of hours as 


opposed to days. 

We couldn’t live with¬ 
out it!’ 

A MBA SE is a 
revolutionary state-of- 
the-art system for 
application develop 
ment and data 
base management. 
AMBASE is increas¬ 
ing programming pro¬ 
ductivity worldwide 
from 100 900%. In 
addition to the data 
management system. 
AMBASE includes 


a report generator, 
query language, screen 
formatter and auto 
matic code generator. 

If you would like to 
find out more about 
AMBASE. write to 
1900 Plantside Dr.. 
Louisville. KY 
40299. U.S.A. or 
call. 502 491 9820. 

We will send you 
free information 
immediately. 


■■■■■■ 


amcor computer corp. 


| Headquarters: Louisville. KY Regional Otlices Nationwide Telex 204122_| 
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• 10(1024) —Not Used 

• 11 (2048) — Not Used 

• 12 (4096) — Just print prompt 

If this bit is set, then only the prompt is printed, 
there is no attempt to get any input. 

• 13 (8192) — Allow a random string (other than a file 
name) 

If this bit is set, BUILD will allow the input to be 
any character string. Otherwise BUILD will assume 
that the input is part of a file specification and all 
spaces and tabs will be removed. 

• 14 (16384) — Do not input or print anything 

If this bit is set then no prompt is printed, nor is 
any input requested. The default however will be 
printed unless it is null or bit 15 is set. 

• 15 (-32768) — Do not print the default 

If this bit is set then the default is not printed. 

7.2.4 STRING-3 — DEFAULT FILE SPECIFICATION 

This field is the default file specification. Any portion of 
an entered file specification which are missing will be taken 
from this specification. 

7.2.5 STRING-4 — THE SUBSTITUTION SYMBOL 

This is the definition for a symbol to be replaced by the 


value entered at the prompt. If the substitution symbol has 
already been defined by either a $ PROMPT command or by 
BUILD, it will be replaced by the new definition. 

7.3 Using $ PROMPT 

As you can see the $PROMPT command is very versatile 
with many uses. We will look at some of the uses for this 
command, concentrating on the second format. The various 
uses for the $PROMPT revolve around the bit values of the 
integer flag word. 

(a) Print an informational prompt 

Sometimes it is desirable to print a heading before 
the actual prompts start or to give additional infor¬ 
mation prior to issuing a prompt. To do this use a 
value of 4096 for the flag word. 

SPROMPT ” Software Techniques * * * ..4096. JUNQUE 

This will cause the following message to be 
printed. 

• * Software Techniques * * 

As you will note, the default to print and the 
default file specification are missing. This should 
always be done to avoid the possibility of the com¬ 
mand being processed incorrectly. All $PROMPT 
commands (format 2) must have a substitution 
symbol specified. The best thing to do is to use the 
same symbol (JUNQUE in the above example) for all 
of your informational prompts. If you use a symbol 
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SYSTEMS! 


LEX-11 

WORD AND DATA 
PROCESSING FOR 
VAX, PDP-11 AND 
LSI-11 


• Integrated word, data 
list processing 

• Supports RT-11, TSX- 
PLUS, RSX-11M, RSTS/E, 
UNIX, IDRIS, IAS, VMS 

• Fast, friendly, flexible 

• Calculator, Graphics 

• Spelling Dictionary, 
Forms 

• Custom modification 
easy 

• ASCII Formated Files 

• Report Writer, Data 
Entry 

• OEM Discounts 

EEC Systems 

Dept. RST 

286 Boston Post Road 
Wayland, MA 01778 

(617) 358-7781/2 

(617) 443-6376 
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which has already been defined, the replacement 
value of that symbol will be discarded and a null 
string will take its place. 

(b) Require a device name only 

SPROMPT Enter a device name.SY : .37.SY:.DEVICE 

This will appear as: 

Enter a device name <SY:> ? 

If you don't want the default to be printed, then 
use a flag word of -32731 (1 + 4 + 32 + (-32768)). 

(c) Enter an existing filename 

SPROMPT Enter a filenameJUNQUE.IT.17JUNQUE.IT.FILE 

This will appear as: 

Enter a filename < JUNQUE.IT> 7 

The response to this prompt will cause BUILD to 
lookup the file entered or JUNQUE.IT if nothing was 
entered, in the current account on SY.-. If the file 
was not found BUILD will print an error message 
and re-prompt you. 

(d) Enter a specific response 

Require the user to enter a specific response to 
the prompt such as YES or NO. 

SPROMPT Really continue.No.8256..YES.NO 

2 

YES = YES 

NO = NO 

This will appear as: 

Really continue <No> ? 

If an invalid response is given, BUILD will display 
the correct responses and re-prompt as is shown 
below: 

Valid options are: 

YES 

NO 

Really continue <No> ? 

(e) Enter a replacement file type 

Use BUILD to do a replacement on a file type as in¬ 
put by the user. 

SPROMPT Enter the file type.B2S.64..B2S.EXT 

2 

B2S = .B2S 

BAS = .BAS 

This command when executed will assign the file 
type which was entered, along with the a 
proceeding dot to the symbol "EXT ". The symbol 
“~EXT" may then be used in the command file to 
cause the replacement of all occurances of “ ~ EXT:" 
with the desired file type. For example: 

Enter the file type < B2S> ? BAS 

Then the command: 

PIP JUNQUE'EXT: = MTOJUNQUE ~ EXT: 

Will appear as: 

PIP JUNQUE.BAS = MTOJUNQUE.BAS 

(f) Logic manipulation in BUILD control files 

Through the responses to SPROMPT pseudo 
prompts, substitution symbols can be used as logi¬ 
cal with true/false values. The definition for logic 
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values is as follows: 

Logic value Replacement value 

True Null 

False $ PROMPT ! False 

To define the logic values as defined in the above 
table, we will use the $PROMPT command. For this 
example we will define the user input as a Yes/No 
response with Yes = True and No = False. 

SPROMPT Really continue.No.82S6..YES.N0 
2 

YES = 

NO = SPROMPT I False 

~ YES.NOrSPRO Installation continuing..4096.JUNQUE 

As can be seen in this example, the substitution 
symbol "YES.NO" is set to “TRUE" if the entry was 
"YES" and to “FALSE" if the entry was "NO". Then 
the next command, an informational prompt, is 
prefaced with this symbol. If "YES.NO" is "TRUE" 
then the command will be executed because 
"YES.NO" will have a null replacement value. Other¬ 
wise the command will be ignored because it is com¬ 
ment entry (SPROMPT!). 

The following example shows this command and 
the result when the user enters "YES". 

Really continue < No> ? YES 
Installation continuing 

These logic substitution symbols are designed to 
preface a line to determine if that line is to be pro¬ 
cessed or ignored. Using this technique, a line may 
be prefaced with more than one substitution sym¬ 
bol. This will be treated as an "AND" condition. The 
line will be processed if all the replacement values 
are “TRUE". 

(g) Setting up two opposite conditionals 

If we want to set up two substitution symbols 
with opposite logic values we will use a dummy 
$PROMPT. In other words a SPROMPT which causes 
nothing to be printed or input. 

SPROMPT Really continue.No.8256..YES.N0 
2 

YES = YES 
NO = NO 

SPROMPT ‘Dummy (yes = true)*.~ YES.NO:.-8128..ANS1 
2 

YES= 

NO = SPROMPT! False 

SPROMPT ‘ Dummy (no = true)'.~ YES.NO:.-8128..ANS2 
2 

YES = SPROMPT! False 
NO = 

~ANS1:$PRO Installation continuing. f 4096.JUNQUE 
~ ANS2:$PR0 Installation being aborted..4096.JUNQUE 

In this example “ANSI" is set "TRUE" if the 
response was “YES" and "ANS2" is set "TRUE" if the 
response was "NO". Then only one message will be 
printed depending upon the user response. The 
value -8128 (64 + 8192+16384+ (-32768)) is used 
to check the value of "YES.NO" against the defined 


and 

another one 


“Ambase 
training... 
a good 
foundation” 

“Everything we have 
developed over the 
past year has been 
under AMBASE; our 
student registration 
packages for high 
school and college, 
the fund accounting 
system for the school 
district, the test scor¬ 
ing program, even the 
payroll system. 

AMBASE training 
gave me a good foun¬ 
dation. Installation 
was very easy, and 
customer service is 
excellent. I always 



amcor computer corp. 


Ken Haarstad. Lead 
Programmer. Turtle 
Mountain Community 
SchiwL Turtle Mountain 
Indian Reservation. 
North Dakota. 


get a quick response. 

If someone were to 
take AMBASE away 
from me, I would 
quit. It speeds things 
up so much!’ 

A MBA SE is a 
revolutionary state-of- 
the-art system for 
application develop 
ment and data 
base management. 
AMBASE is increas- 
ing programming pro¬ 
ductivity worldwide 


from 100-900%. In 
addition to the data 
management system, 
AMBASE includes 
a report generator, 
query language, screen 
formatter and auto¬ 
matic code generator. 

If you would like to 
find out more about 
AMBASE. write to 
1900 Plantside Dr.. 
Louisville. KY 
40299, U.S.A. or 
call. 502 491 9820. 

We will send you 
free information 
immediately. 
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responses and to define the new replacement sym¬ 
bol without any prompt or default being printed. 

The following example shows this command and 
the result when the user enters "NO”. 

Really continue <No> ? NO 

Installation being aborted 

(h) Aborting a BUILD with SPROMPT 

The SPROMPT may also be used to abort BUILD. 
This is done in two steps, the first is to define the 
abort message and the second is to do the actual 
abort. When the abort is executed. BUILD will close 
the control file and output command file, print the 
abort message and return you to monitor control. 
The abort message will appear as: 

?Program aborted — xxxx 

Where "xxxx" is the abort message which must 
be no more than 26 characters long. 

The abort message is defined with the following 
$PROMPT command. 

SPROMPT ‘Abort Message*.xxxx.-8192..AB0RTS 

To define the message for an abort, the substitu¬ 
tion symbol must be “ABORTS". The value -8192 
(8192 + 16384 + (-32768)) is used to store the abort 
message (xxxx) without any prompt or default being 
printed. 

The actual abort is done with the following command: 

SPROMPT ‘ Aborting ‘.YES.-8192..ABORT 
















page 42 April 1982 

RSrSPROFESSIONALRSTSPROFESSIONALBSTSPROfESSIONALRSTSPflOFESSIONALRSTSPROFESSK)NALftSTSPROFESSIONALR5r5PROFESSIONALfiSTSPfiOFESSIONALflSTSPROFESSIONALflSTSPROFESSIONAL8SrSPROFESSIONALRSTSP 


The substitution symbol must be "ABORT" and 
the replacement value must be "YES" for an abort 
to take place. In this example we used a dummy 
prompt and forced the "YES" response. 

8.0 PATCHING FROM BUILD 

The following commands are used with the patching 
function of BUILD. Patching, however will not be done 
unless the "Patch" or "Build/Patch" function was selected 
with the "SPROMPT PATCH" command. 

These commands are: 

• $B00T 

• $BREAK 

• $DOPAT 

• $END 

• $FORCE 

• $PATCH 

8.1 $B00T n 

This command will cause BUILD to be reloaded by ATPK 
after all of the commands up to the $BOOT have been proc¬ 
essed. The $BOOT command will only be processed if the 
value "n" is greater than the current value of BT.LEV% 
which is defined at line 1000 of BUILD. Currently this value 
is zero, so $B00T 1 will cause BUILD to be booted. 

The following actions take place in response to the 
$BOOT command. 

1. The input control file and the output command file 
are closed. 

2. BUILD chains to ATPK. 

3. ATPK processes the command file and chains back 
to BUILD. 

4. BUILD will read through the control file ignoring 
everything except $D0PAT and $PR0MPT com¬ 
mands until the $B00T command is reached. The 
■‘SPROMPT PATCH" command is ignored after a 
boot. 

5. BUILD processes the remainder of the control file 
normally. 

8.2 $BREAK 

This command is the terminator for a $DOPAT com¬ 
mand control block. See section 8.3 for information on the 
$D0PAT command. If this command is found anywhere but 
the end of a $DOPAT command control block it is treated as 
a no-op. 

8.3 $DOPAT (©Filename 

The $D0PAT command will cause the input control file 
to be changed to the patch command file specified by 
"Filename". The default file type on the patch command file 
is ".CMD". The contents of this patch command file are 
patch commands using the BUILD commands $END, 
$ FORCE. $ PATCH, and $PROMPT. See the sections on these 
commands for more information on their use. 

The $DOPAT command will only be used if the 
"SPROMPT PATCH" command was processed and the user 
choose to "Patch” or "Build/Patch". If the $DOPAT com¬ 
mand is executed, all commands after it are ignored until a 
$BREAK command is found. If the $DOPAT is not executed 


then the commands following it are used and the $BREAK is 
treated as a no-op. 

8.4 SEND Filename 

This command is used to terminate the SFORCE and 
SPATCH command control blocks. In addition to ter¬ 
minating these control blocks, when terminating the 
SPATCH command, it will cause the program just patched 
to be compiled. The "Filename" is the name of the new com¬ 
piled program. The "Filename" defaults to the file specified 
with the SPATCH command. There is an optional switch for • 

this command to specify that no compiling is to be done. 

This switch is "/NC". 

8.5 SFORCE 

The SFORCE command is used to place special patching 
commands in the ATPK command file. This command starts 
a command control block which contains the special patch¬ 
ing commands. The control block is terminated with either 
the SEND or the SPATCH commands. 

An example of the use of this command would be when 
a BASIC program is to be patched through the SPATCH com¬ 
mand but requires several modules to be appended prior to 
patching. You would place the necessary append commands 
in this control block along with a command to save the pro¬ 
gram to a temporary file for patching. 

The SFORCE can also be used to do patching with 
ONLPAT. All that would have to be done in this case is to 
place the commands necessary to invoke ONLPAT in the 
control block. 

The SFORCE command causes some special processing 
to be done on the commands within the control block. 

1. All normal BUILD substitutions are performed. 

2. The BUILD commands SEND. SPATCH. and 
SPROMPT are properly executed. 

3. The following special substitutions are performed: 

• I: is replaced by the input device and the input ac¬ 
count (INPUT). 

• S: is replaced by the system device and the input 
account (SYSDSK). 

• L: is replaced by the library device and the input 
account (SYSTEM). 

• 0: is replaced by the location of the patched 
sources (SAVDEV). 

These special substitutions are only done when the 
substitution string is immediately preceeded by one i 
of the following: 

Double quote mark, single quote mark, left 
bracket, left parenthesis, semi-colon, comma. , 
equal sign, space, or a horizontal tab. 

4. The text with all substitutions made is placed in the 
ATPK command file. 

8.6 $ PATCH Filename 

The $PATCH command is used to set up the commands 
for patching with CPATCH. The $ PATCH command starts a 
command control block which is terminated with either the 
$END or the SFORCE commands. The filename specified is 
the name of the BASIC program to be patched. This 
filename will have a default file type of ".BAS”. 
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We will look at the result of a sample $ PATCH com¬ 
mand control block. The run-time system is BASIC, the 
patch files are in SY:[200,200], and the sources will be saved 
in SY:[200,201]. The $PATCH command control block is: 

SPATCH JUNQUE 
JUNQUE.PAT 
SEND JUNQUE 

The above commands will produce: 

RUN SY:[1.Z]CPATCH 

SY:[200.201PUNQUE.BAS = SY:[1.2JJUNQUE.BAS 

SY:[200.200VUNQUE.PAT 

IZ 

IZ 

SCALE 0 

OLD SY:[200.201PUNQUE.BAS 
COMPILE SY:[1.2PUNQUE 

The filename specified in the SPATCH command must exist, 
if it does not then BUILD will abort with an error. 

9.0 BUILD INDIRECT COMMAND FILES 

BUILD will allow references to indirect command files. 
These indirect command files may be nested 15 deep. 

To denote an indirect command file reference, use the 
commercial at sign (@) before the command file name. This 
command must be the only thing on the line. For example: 

@JUNQUE.CMD 

The default file type for the indirect command file is "CMD". 

To place indirect command references for other pro¬ 
grams or utilities such as PIP place an underscore (_) before 

the "@". ATPK will discard the underscore character if it is 
the first character on the line. For example: 

RUN -RUNUB:PIP.SAV 


and 

another one 


“Ambase 
is making 
our lives 
easier...” 

“AMBASE is making 
our lives easier 
through aid messages, 
and more reliable 
data. It puts the data 
in a common area. 

Amcor’s training 
facilities are very 
conducive to learning 
and the training pro¬ 
gram is complete. 
Installation of 
AMBASE was very, 
very, very, easy, 
and Amcor’s support 
is good. 

Using AMBASE in 
an integrated envi¬ 
ronment with Amcor’s 
application products 
is advantageous to us 



because the systems 
have a number of 
things built into them 
that would have taken 
us a long time to 
develop. Getting 
everything under 
A M B A SE completely 
will bring about pro¬ 
gramming conformity’.’ 

AMBASE is a 
revolutionary state-of- 
the-art system for 
application develop¬ 
ment and data 
base management. 


amcor computer corp. 


Sam Walden. Vernay 
Laboratories. Inc.. 
Yellow Springs, Ohio, 
manufacturer of 
laboratory gaskets, 
using AMCOR’S 
AMBASE and 
AM FACS systems 
in an integrated 
environment. 


AMBASE is increas¬ 
ing programming pro¬ 
ductivity worldwide 
from 100-900%. In 
addition to the data 
management system, 

A MBA SE includes 
a report generator, 
query language, screen 
formatter and auto¬ 
matic code generator. 

If you would like to 
find out more about 
AMBASE, write to 
1900 Plantside Dr., 
Louisville. KY 
40299, U.S.A. or 
call. 502-491 9820. 

We will send you 
free information 
immediately. 
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_@APBLD1.CMD 

_@APBLD2.CMD 

_@APBLD3.CMD 

IZ 

This will cause the following to be sent to the PK by ATPK: 

RUN SY:[1.2]PIP.SAV 

@APBLD1.CMD 

@APBLD2.CMD 

@APBLD3.CMD 

IZ 

10.0 ATPK COMMAND RECOGNIZED BY BUILD 

The only ATPK command which is recognized and proc¬ 
essed by BUILD is the "$DETACH" command. When BUILD 
detects this command it sets up the ATPK command line 
with the "/DET" switch. This is the same as is done for the 
“/DETACH" command on the input device prompt. All addi¬ 
tional occurances of the command will be ignored. After 
detecting the "$DETACH" command, BUILD will not prompt 
for an additional control file when the end of the current 
control file is reached. 

11.0 OLD, APPEND, and COMPILE commands 

The commands to the BASIC editor, OLD. APPEND, and 
COMPILE will be treated differently depending on the 
responses to the "$PROMPT RTS" prompt. The best way to 
describe the actions taken by BUILD when encountering 
these commands is to show the result of a simple command 
when each of the various options are selected. 


The following commands have been placed in the 
BUILD control file. 

$ PROMPT RTS 
OLD JUNQUE 
APPEND JUNK.APP 
COMPILE JUNQUE/TKB 

These commands can produce the five different results 
shown depending upon the responses to the “$PROMPT 
RTS" command. The “/TKB" switch is used to generate the 
commands to task build the program if necessary under the 
specified language processor. 

(a) Using the BASIC RTS. 

SCALE 0 
OLD JUNQUE 
APPEND JUNK.APP 
COMPILE JUNQUE 

(b) Using the BP2C0M RTS and without CSPCOM. 

scale o 

OLD JUNQUE 
APPEND JUNK.APP 

COMPILE JUNQUE.OBJ/CHA/UN/NODEB/OBJ 
RUN SY:[1.2JTKB.TSK 

JUNQUE.TSK/FP = JUNQUE.0BJ.SY:[1.1 ]BP2C0M.0LB/LB 

/ 

HISEG = BP2C0M 
UNITS =12 

ASG = SY :5:6:7:8:9:10:11:12 
// 
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1982 DECUS AUSTRALIA 

SYMPOSIUM 

OI\f DAY PHp-SYMPOSIUM SEMINAR 

“HOW TO GET THE MOST 
OUT OF YOUR RSTS SYSTEM” 


to be given, by* 

(arl Marbacl\, and DaVe Malleiy* 
of tl^e RSTS PtbJessioi\,al Magazine 

VENUE: The Melbourne Hilton 
DATE: Thursday 22nd July, 1982 

TIME: 10:00 am to 7:00 pm 

REG. FEE: J8A115.00 (including am/pm coffee & lunch) 


Registration details: Contact Dccus Australia, P.O. Box 384, 
Chatswood, NSW 2067, Australia, tel. 02.412.5252 or the Decus 
Secretary in New Zealand at P.O. Box 17-039, Greenlane, Auckland 5, 
tel. 591.289. 


Registrations to be made before 15th June, 1982 
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RSTS PROFESSIONAL 

Box361 . Ft.Washington.PA 19034-0361 .(215)542-7008 

□ PAYMENT ENCLOSED for one year's subscription (6 issues). 

US 3rd class. $35 / Canada & US 1st class. $50 US / 

All other countries air mail. $60. payable in US dollars. 
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RUN SY{1.2]PIP.SAV 
JUNQUE.OBJ/DE:NO 
IZ 

(c) Using the BP2C0M RTS with CSPCOM. 

RUN SY:[1.2]CSPCOM.TSK 
JUNQUE.OBJ/OBJ = JUNQUE JUNK. APP 
IZ 

RUN SY{1,2]TKB.TSK 

JUNQUE.TSK/FP = JUNQUE.OBJ.SY:[1.1 ]CSPCOM.OLB/LB 

/ 

HISEG = BP2COM 
UNITS =12 

ASG = SY:5:6:7:0:9:10:11:12 
// 

RUN SY:[1.2]PIP.SAV 
JUNQUE.OBJ/DE:NO 
IZ 

(d) Using the RSX RTS without CSPCOM. 

SCALE 0 
OLD JUNQUE 
APPEND JUNK.APP 

COMPILE JUNQUE.OBJ/CHA/UN/NODEB/OBJ 
RUN SY:[1.2JTKB.TSK 

JUNQUE.TSK/FP = JUNQUE.0BJ.SY:[1.1 ]RSX.OLB/LB 

/ 

UNITS = 12 

ASG = SY:5:6:7:8:9:10:11:12 
// 

RUN SY:[1.2JPIP.SAV 
JUNQUE.OBJ/DE:NO 

IZ | Headquarters: Louisville. KY Regional Offices: Nationwide Telex 204122 

If you will note, these commands will fail because circle 3 on reader card 

the RSX emulator does not know how to deal with 


and 

you could 
be the next 


Amcor Computer 
Corporation is one 
of the oldest mini¬ 
computer software 
vendors in the world. 
We have over a 
decade of experience 
in developing soft¬ 
ware solutions for a 
multitude of indus¬ 
tries. 

The people of 
Amcor are com¬ 
mitted to achieving 
their goal of software 
excellence. Respon¬ 


siveness to the 
requirements of the 
industries served by 
Amcor’s New Gen¬ 
eration Software 
Products is one of the 
essential elements 
that assures our 
continued success as 
a leading producer 
of software. 

Amcor offers a full 
range of Accounting 
and Business Con 
trol application soft¬ 
ware products, as 


well as a compre¬ 
hensive Data Base 
Management System. 

If you would like 
more information on 
how you can join our 
ever-growing list of 
satisfied customers, 
just clip the coupon 
below and drop it in 
the mail, or give us 
a call. We will be 
happy to send you 
free information 
immediately. 


please send more information on: 


RSP1 


□ Account* Receivable 

□ Accosts Payable 
D Payyo* 


CD Inventory Control 

□ Sole* Analysis 

□ AMBASE DBMS 


□ AMP ACS G l financial Management 
D Oder Processing Bitting 

□ Amcor s Bundled System Discount 


company name _ 


- phone mrnber— 


.computer type and model 
g system 


amcor computer corp. 



the commands SCALE. OLD. APPEND, and COM¬ 
PILE. Therefore you should always specify CSPCOM 
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ENABLE COMPATIBILITY 
WITH NON-DEC 
PERIPHERALS 

By Ken Fleming, Multi-List/McGraw-Hill 


In August of 1981, we installed the Able ENABLE “Memory Ex¬ 
pander" and one megabyte of Mostec memory on an 11 /45 with 
System Industries' RM05 look-alike drives (S.l. 9400 controller with 
CDC 9766 drives). We decided to take this approach because (a) we 
already owned the 11 /45, and (b) we are in the process of switching 
to VAX 11 /780's, so we did not wish to buy another PDP 11 /70. 
The 11 /45 is a very fast machine, but is limited in memory. We 
reasoned that with enough memory the problem of job swapping 
could be reduced to acceptable proportions. 

We. the steering committee par excellence, had sold manage¬ 
ment on the vast improvement in terminal response that users 
would see (due to less job swapping) when we expanded from 256K 
DEC memory to 1 megabyte Mostec. The morning after installing 
Enable, we were forced to report that everything went well, but 
because of an as yet undefined "Glitch", we were still operating at 
our original 256K with the Enable installed! 

Defining that “Glitch" became the challenge of the day — for 
too many days. The Enable device ran with RP04’s on an RH11 con¬ 
troller with no problem. However, when we substituted the S.l. 
drives for the RP04’s, we could not get past the memory map sec¬ 
tion of INIT.SYS (no message-system hung). Further investigation 
revealed that by not using the software patch that turns on the ex¬ 
tended memory mapping, the Enable device worked fine with the 
S.l. drives. 

System Industries' only answer was that the problem must be 
in the "other" device. Abie’s response was immediate. Les Well¬ 
ington asked if he could come to our site and try to fix the problem 
for us. The next night Les, Joe Burdec, and Wayne Needer arrived 
armed with scopes, logic analyzers, revised boards, soldering guns, 
and spare parts galore. They worked all night with Bob Kelly (our in- 
house electronics wizard) and myself to try and fix the problem. Un¬ 
fortunately we still had not defined the problem by morning. 

The next day I called System Industries again, this time to re¬ 
quest an S.l. 9400 controller for Able to test with their Enable device. 
The response from System Industries was far from adequate. Les 
Wellington was also pursuing getting an S.l. 9400 controller on a 
loan basis. Two weeks went by with no response from S.l. 

Finally S.l. agreed to send their best technician (not an 
engineer) to our site to check things out. Up to this time the only 
person at S.l. who appeared the least bit interested in our problem 
was Dick Mann. When the technician could not define the problem, 
we were forced to start calling higher S.l. management in an at¬ 
tempt to get some action. Able was doing everything they could 
without the S.l. 9400 controller. In fact, Les had discovered that 
their device would work with various third party controllers. S.l. 
seemed to be the only problem. 

Finally, after applying constant pressure on S.L. Les Wellington 
was invited to Sunnyvale to work on S.l. equipment at S.I.’s expense. 
This was an excellent idea and Les agreed at once. However, by now 
it had taken a month to get S.l. to escalate beyond a "Gee, that’s too 
bad" attitude. 

As perserverance and curiosity are our long suit at Multi- 
List/McGraw-Hill, this author had finally prevailed and solved the 
impasse in the following manner. 


The Enable device may be installed with up to four megabytes 
of memory, but it cannot address more than 256K bytes without a 
patch to INIT.SYS and the SIL. The Enable worked just fine on the 
256K; but as soon as we patched INIT and the SIL, we could not 
bring up the system. This would immediately make one suspect the 
software patches. Joe Burdec assured me that it was not the 
patches, citing the fact that they were the same patches installed on 
every other system, and the only problems that they had en¬ 
countered had been with S.l. equipment. This satisfied me for 
awhile, but I am responsible for (among other things) Sysgens. in¬ 
stallation of new software, and patching. 

One of the things that I had done recently was install a special 
INIT.SYS from S.l. to allow the CDC 9766's to run as large RM03’s. 
This puzzled me — so I did some investigation. By comparing the 
INIT.SYS V7.0-07 and S.I.’s INIT, I discovered significant differences 
in DSK, ROOT. COPY.and BOOT. I talked to Dick Mann at S.l. and he 
assured me that there should be no conflict with the Able software 
patch because they should be different areas in the code. 

By now. weeks had elapsed and I was more and more inclined 
to look toward software. I compared INIT V7.0-08. INIT Ml.0-01, 
and S.I.’s INIT. The differences between INIT V7.0-08 and INIT 
V7.0-07 were insignificant. However, the differences between the 
two standard DEC INITs and S.I.’s INIT were numerous. Then I no¬ 
ticed S.I.’s INIT always asked for cluster size. Somewhere I had read 
about this being a bug in a very old INIT.SYS. 

By now I was convinced that the problem was a conflict be¬ 
tween Software Technique patches and S.I.’s patched INIT. So late 
one night I changed the S.l. drives from RM03 emulation to the 
RM05 emulation, mounted the new pack with DEC RM05 software 
with the Software Technique patches, and, lo and behold, 
everything worked. RSTS recognized all of our megabyte of 
memory. We have been running now for three months with no 
problems with the Enable device or S.l. drives. 

When I inquired of the S.l. field tech the reason we were run¬ 
ning in RM03 emulation, I was told it was because that was the way 
he was trained to do it. No one at S.l. could tell me the reason for 
this. The overall impression from dealing with S.l. was lack of field 
support training, both in software and hardware. 

On a more positive note, since resolving this one major "Glitch”, 
we have had no problems with either the S.l. drives or the Enable. 

For all you hardware types, the Enable fits in an SPC hex slot. 
All DMA devices should be in front of the Enable board and the 
memory goes behind. This means that the Enable will normally be 
the last device on the bus. One item of interest is that you don’t use 
a bus terminator with the Enable. Be sure you make this clear to 
your field service tech to avoid grief. Bob Kelly actually put a sign in 
the expansion box. 

Provisions are made for you to piggy-back your present 18 bit 
address memory behind the Enable and 22 bit addressable memory; 
however, a separate SPC backplane is required. ABLE says you can 
go up to 4 meg, but we only have 1 Va megabyte; 1 meg of Mostek 
8015 memory and Va meg of DEC MS 11-LD. 

The S.l. interface also goes in one HEX slot; however, if you buy 
the 9400 controller instead of the 6100 single board, you will need 
some rack space. The most important benefit of the 9400 over the 
6100 is the dual porting option which, with S.l. switch panel will 
allow up to four CPU to address up to 32 disk drives. The reader 
should take great care in deciding which CPU can write to which 
disk drive, since the disk map on disk and the disk map in memory 
won’t match on all the CPUs at the same time. This feature could be 
of great value to a shop for backup purposes. 9 
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BACkm© can do it all! 

BAC into RTS / BAC into MAC / BAC into BAS BACmac is a unique software tool, running 

under RSTS/E, which provides the following 
conversions: 

■ translation from Basic-Plus "compiled" back to 
Basic-Plus source code (only the comments will 

* be missing) 

; ■ translation from Basic-Plus into Macro source 

( code, which compiled under RSTS runs faster 

than Basic-Plus 

■ translation from Basic-Plus into Macro source 
code which may be compiled under RSTS for 
execution under RT11 — a migration facility 

■ translation from Basic-Plus into a RUN-TIME- 
SYSTEM. Now you can write an RTS in Basic-Plus. 
The ideal solution to memory thrashing due to 
"multi-copy" applications programs. 

RSTS/E. RT11. Macro-11 and Basic-Plus are trademarks of Digital 
Equipment Corporation. 
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MORE NOTES ON LITERALS AND 
STRINGS IN BASIC-PLUS-2 

By Brad Smith, Allied Data. Olympia. WA 

The author has worked on PDP-11 ’s for 5 years in several 
languages. He now specializes in the design and optimization 
of Basic-Plus-2 application systems. 

In a previous article (RSTS Professional, December 
1981), I explained the basic ways in which space for literals 
is allocated in Basic-Plus-2. Here is some additional informa¬ 
tion on ways to reduce the space and time required by a BP2 
program. 

One feature of the BP2 compiler which can be of impor¬ 
tance is that concatenation of string literals is done at com¬ 
pile time. For instance, 
as = “A” + "B" 

produces the same object code as 

AS = "AB". 

In addition. CHR$ functions with literal arguments are 
treated as literals: they are evaluated at compile time and 
can be concatenated with other literals at that time. This 
can help significantly in reducing the space and time re¬ 
quired for printing. To use a simple example. 

PRINT CHRS (13%); CHRS (10%); 

requires 11 words to store the instructions plus a total of 12 
bytes for the two literals. Concatenating them, 

PRINT CHRS (13%) + CHRS (10%); 

reduces the instruction space to 7 words and the data space 


to 6 bytes, and also reduces the execution time. Another ex¬ 
ample of the ways in which this compile-time concatenation 
can be utilized is in a keyboard input subroutine which 
returns a different value depending on the delimiter entered 
by the user. This can be done by writing something like 

F% = POS(CR + LF + CHR$(27%) + CHRS(4%) + FF, D$. 1%) 

where D$ is the delimiter entered by the user. Being aware 
of this feature enables the programmer to avoid the "ex¬ 
pense" of storing the individual characters as elements in an 
array or concatenating the characters and storing the result 
in a variable to be used in the above expression — neither of 
those approaches is as efficient. 

The evaluation of literal expressions applies also to 
numeric expressions, but only to a limited extent. The com¬ 
piler has problems with the precedence of operators. In such 
a case, it will go as far as it can in simplifying the expression. 
Consider the following examples of integer expressions and 
how they are expressed in object code: 


S%"6% / 2% 

30% / (2%+ 3%) 
5%*6% / (2%+ 3%) 
30% / 2% + 3%-2% 
15% + (3%-2%) 


= 15% 

= 6 % 

= 30% / 5% 
= 16% 

= 16% 


Enclosing 5% *6% in parentheses has no effect; however, 
note that the use of parentheses in the next-to-last expres¬ 
sion, although not affecting the run-time result of the ex¬ 
pression, does increase the space required to store it and the 
time to evaluate it. 
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APPLICATIONS SCALE IN YOUR 
FAVOR. -WITH USER 11. 
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USER-11 is a comprehensive 
applications development 
facility for the DEC RSTS 
operating environment. 
Dozens of integrated 
programs harness RSTS's 
power for unparalleled 
productivity and performance 
in constructing on-line and 
batch application systems. 

PRODUCTIVITY... 

A MATTER OF TIME. 

More than a data manage¬ 
ment system, USER-11 
features common-function 
programs that permit 
numerous applications to be 
installed without writing a 
single line of code. Complete 
building blocks and interfaces 
are provided for those 
remaining applications 
requiring custom work. 

PERFORMANCE... 

SIMPLY INCREDIBLE. 

USER-11 combines 
advanced BASIC and 
MACRO coding techniques 
with ultra-efficient file 
accessing mechanisms to 
optimize application system 
performance. 


RELIABILITY... 

A PROVEN FACT. 

USER-11 is currently 
installed on hundreds of time¬ 
sharing systems world-wide 
with a reliability record that 
users repeatedly praise. All 
software is exhaustively 
tested and benchmarked prior 
to any distribution release. 

SECURITY... 

MORE THAN RSTS. 

USER-11 incorporates a 
unique MENU system which 
flexibly and securely controls 
all processes. Secondary, 
encoded security databases 
are provided for each project. 
A special Run Time System is 
invoked to prevent accessing 
the RSTS ready state, unless 
the software developer 
desires this for the user. 

STANDARDIZATION... 

A BYPRODUCT. 

All USER-11 generated 
packages employ program¬ 
ming and documentation 
conventions which enhance 
compatibility, readability, 
and maintainability. 

ADAPTABILITY... 

NO PROBLEM. 

USER-11 programs are 
dictionary and parameter 
driven throughout. Files can 
be restructured without 
program modifications. 


DOCUMENTATION... 

GOOD AND PLENTIFUL. 

USER-11 features a wealth of 
easy-to-follow documen¬ 
tation. An extensive on-line 
“/HELP” facility is at 
software developer and user 
fingertips. All documentation 
is maintained and distributed 
on your system’s compatible 
media. 0 

TRAINING...ALL KINDS. 

USER-11 training courses are 
held frequently with instruc¬ 
tional programs to suit your 
need—beginner to expert. 

FEATURES...ON AND ON. 
USER-11 includes virtually 
every facility needed to 
quickly construct high 
performance management 
applications—nothing else is 
required. If you find this hard 
to believe or would like more 
information, contact us; we 
will furnish you with solid 
user proof! 
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North County 
Computer Services, Inc. 

2235 Meyers Ave. 

Escondido, California 92025 
(714) 745-6006, Telex: 182773 

DEC and RSTS are registered trade¬ 
marks of Digital Equipment Corporation. 
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VERSION 2.1 NOW AVAILABLE: 

QUE-11 — V2.1 

ONE JOB SPOOLER 
FOR RSTS/E CONTROLS 
ALL SPOOLING 




QUE-11: 

• DEC QUE Compatible 

• Block letters on spooled header page 

• One job controls all spooling 

• Saves small buffers and job slots 

• Spawns jobs as needed 

• Handles line printer and keyboard 
spooling 

• Controls as many BATCH JOBS as 
pseudo-keyboards 

• Full parameter replacement in QUE 

• calls “DO” command replaces indirect 
processors 

• QUEMAN SYS call supported 

• Program deliveries — NOW 

• Only $995 single cpu license 

• Trial Version $100 

For more information contact: 


On Track Systems, Inc. 
P.O Box 245 
Ambler, PA 19002-0245 
Phone: 215/542-7133 


One use of this feature is to make a program more 
readable — instead of 

1% AND 53% 

a programmer can write 

1% AND (1% + 4% + 16% + 32%) 

Or 1% AND (1% OR 4% OR 16% OR 32%). 

Lest you hope for too much from the compiler, I should 
point out that the SPACES, STRINGS, ASCII, LEN, LEFTS, 
RIGHTS, MIDS and SEGS functions with literal arguments 
are evaluated at run time. 

A couple of further notes on strings: 

In order to examine the first character of a string, it 
is slightly faster (at least, on an 11 /70 with FPP — this 
could vary in a different environment) and occupies the 
same space to say 

CHRS (ASCII(AI)) 

instead of 

LEFTS (AS.1%). 

When comparing the first character of a string to a 
literal, it occupies less space (7 words instead of 8) to say 

IF ASCII(AS) = ASCII ("A") 
instead of 

IF LEFTS(A1.1 %) = "A". 

It is still better (only 5 words of instructions, and 6 bytes 
less data due to the elimination of the string literal) to say 

IF ASCII(AS) = 65%. 

It may appear that use of these techniques could not ef¬ 
fect significant results, but when you need another 5 miles 
per hour out of a program that appears to be at its speed 
limit, a few seemingly minor changes can add up to a notice¬ 
able improvement. 9 


IT'S 3:15 PM 
MONDAY 

Tired of writing depreciation journals in 
3,5;GL, your third assistant bookeeper 
just discovered the joys of 4,0;PAY. 

He's on his way from the bank 
to the airport. 


LOTS OF LUCK! 
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LEARNING 
VAX MACRO 
FOR FUN & PROFIT 

By Bob "MACRO MAN” Meyer 

I had been doing some RSTS macro consulting for a small 
firm in New England (IE Systems. Newmarket, NH.). The 
project seemed to go quite well, and a few phone calls later I 
was asked if I'd like to get involved in a VAX project. A VAX 
project? Me?' I asked. Well, I’m willing to learn' I told them. 
That combined with a reduction in price landed my first 
VAX gig. It's been going on for almost a month now, with 
most of my time spent learning the ways of DCL, the as¬ 
sembler & linker, the instruction set, and monitor calls. The 
project so far has been rather interesting, for a guy that 
knows a fair amount of RSTS, and has done some Macro 
work under RSX-11M, so I though I'd share some of the 
adventure of converting a RSTS Macro program over to VAX 
land. In the next few issues I’ll touch on some of the basic 
I/O calls to VMS, later pointing out some of the more in¬ 
teresting ones. 

Please remember. I’m not a VAX-man (yet). These arti¬ 
cles are for the purpose of showing others how to do some 
simple things under VMS. Please fofgive any errors found: 
I'll try to be as accurate as possible. 

Of all the things that impressed me most, I must first 
stand and RAVE about the Help command. The help system is 
so elaborate, that in most cases where a question arose, 
about ANY area of the VAX, 1 could usually get some direction, 
if not the complete answer, by using the help command. 

Well done. DEC. 

Assembling and linking the small test programs I was 
using was quite fast unless you tried to use RMS. Small pro¬ 
grams that assemble in around 13 seconds would jump to 
about 1:20 if you-know-who was called in... too bad. 

The command file processor is also outragous; it's an in- 
terperter in inteself, and lends a very helpful hand with a 
minimum of effort to learn the basics of it's use. 

Next we ll talk about some of the simple I/O calls. 

The basic I/O interface (at least from MY point of view) 
is VERY similar to that of RSX-11M. A channel is assigned to 
a device or file, and I/O requests are Queued to that channel. 
As in 11M, control can be returned to the user program as 
soon as the request is queued, and the program interupted 
when it completes, making for some pretty clever program¬ 
ming if desired. However, being quite new at all this, I opted 
to take the more conventional route, and wait for my I/O to 
finish before doing anything else. The following directive 
can be used for most I/O needs: 

$QIOW_S CHAN =TTCHAN.FUNC = *IO$_WRITEVBLK,- 

P1 =BUF,P2 = SIZ 

(note that parameters to macros can be passed in any order) 
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Where: 


$QI0W_S 

is the call Que I/O request & wait for 
completion' 

CHAN 

is the channel # to do the I/O to as 
returned by the $ASSIGN directive (that’s 
next) 

FUNC 

is the function we re interested in; in this 
case write virtual block' 

PI 

parameter 1 is the address of the buffer 
to be written. 

P2 

P2 is the length of the buffer 

This call will 

Que the I/O request, and return control to 


the user program when the I/O is complete. 

Before this call can be executed successfully, the 
$ASSIGN directive must be issued to connect a path to the 
current terminal: 

$ ASSIGN_S DEVN AM = TT.CH AN = ITCH AN 

Where TT is the text descriptor of the device to be open¬ 
ed (see example), and TTCHAN is a word which will hold the 
channel number returned by $ ASSIGN. 

A few other things in the example which may need ex- 
planing are: 

The .ASCID directive puts the specified bytes in memory 
(like .ASCII in Macro-11), but preceedes the data with a 
string descriptor consisting of the string length, some 
descriptor information, and a position-independant pointer 
to the string. This is required by the $ ASSIGN call to access 
the user terminal. 


The .ENTRY directive. This is an assembler directive 
which sets up the entry point for the program, and a mask 
to save specified registers on program startup. 

The instruction: 

BLBS rO, < label > 

can be used to watch for errors after executing monitor 
calls. This is because VMS places a STATUS code in RO after 
each call. The instruction reads branch if low bit set (in RO) 
to < label >'. The branch will occur if the previous call com¬ 
pleted successfully. If not, the RETurn instruction will be ex¬ 
ecuted, bouncing control back to VMS, who, upon seeing a 
bad STATUS code, will print the respective error message on 
the user terminal. 

If all is well and we’re at the end of the program, the 
RETURN instruction will act as an EXIT directive, and just 
return control to VMS. 

The sample program should work if keyed in. If time 
permits. I'll try to show some more calls next issue. 

Bye for now. 


.title 

bob 




.ident 

/1.0/ 




tt: 

.ascid 

/_TTB5:/ 

;my terminal number 


ttchan: 

.word 


;place for tt channel as 
jby SASSIGN 

returned 

may: 

.ascii 

/Hello from VAX-land!/<10><13> 


msglen 

*.-msg 


jlengtn of tne message 


.entry 

bob,“H<r2> 

;entry point of program 



Sassign. 

_s 





devnam-tt,chan-ttchan 

;assign a channel to the 

current terminal 


bibs 

r0,10$ 

;assign worked 



ret 


jassign failed; return to 

monitor 

lu$: 

$qiow_s 

cnan-ttchan,- 

func-*io$_writevblk,- 

pl-msg,p2-#msglen 

(write the message to tne 

terminal 


ret 


;return to the monitor 



.end boo 


RSTS/E ON VAX 
ROSS/V 

(RSTS/E Operating System Simulator for VAX) 


ROSS/V is a software package, written in 
VAX-11 MACRO, which provides a RSTS/E 
monitor environment for programs running in 
PDP-11 compatibility mode on DEC’S VAX-11 

ROSS/V supports: 

■ The BASIC-PLUS interactive environment 

■ Concurrent use of multiple run-time systems 

■ Update mode (multi-user read/write access to 
shared files.) 

■ CCL (Concise Command Language) commands 

■ An extensive subset of RSTS/E monitor calls 


ROSS/V runs under VMS and interfaces to pro¬ 
grams and run-time systems at the RSTS/E 
monitor call level ROSS/V makes it possible for 
DEC PDP-11 RSTS/E users to move many of 
their applications directly to the VAX with little 
or no modification and to continue program 
development on the VAX in the uniquely hospit¬ 
able RSTS/E environment Most BASIC-PLUS 
programs will run under an unmodified 
BASIC-PLUS run-time system. 

RSTS. PDP-11. VAX-11, and DEC are trademarks of Digital Equipment Corporation 


ROSS/V is available from: 


(Eastern U.S.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington, Massachusetts 02173 
(617) 861-0670 


(Central U.S.) 

Interactive Information Systems, Inc. 

10 Knollcrest Drive 
Cincinnati, Ohio 45237 
(513) 761-0132 
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(Western U.S.) 

Online Data Processing, Inc. 

N. 637 Hamilton 
Spokane, Washington 99202 
(509) 484-3400 







page 54 


April 1982 


REPLACING RSTS SYS CALLS 
WITH VAX/VMS SYSTEM SERVICES 

A Few VMS Conversion Notes 

By Bob Stanley, Computer Methods Corporation 


INTRODUCTION 

“So. you're thinking of converting from RSTS to a VAX? 
Well. I've heard the VAX is a nice machine; big, powerful, 
fast. But what about all of those RSTS dependent features 
that I've heard the VAX can't emulate?" 

"How about things like direct CRT cursor addressing? 
Or echo control mode? Or programmable wildcard directory 
lookups? The VAX just can't handle those types of business 
application features that RSTS performs so well." 

Does that conversation sound familiar? Have those 
types of questions and concerns turned you off to the VAX? 
Well, to the surprise and delight of many, there are solutions 
to these problems. This article takes a first hand look at how 
to make your brand new 32-bit supermini look just like 
RSTS. By the way, the rumor that the original title of this ar¬ 
ticle was “Turning Unbearable Pain Into Extra Income" is 
just not true! 

The conversion factors described below are from an ac¬ 
tual RSTS to VAX conversion done for a client of Computer 
Methods Corporation that is currently running a 50 job RSTS 
system that tracks and manipulates export orders. As is 
typical of most installations , many programs were written 
that take advantage of RSTS dependent features and are, 
therefore, not easily convertible. Several external functions 
were written and placed in an object library that provided 
the programmers with substitute methods of performing 
these RSTS dependent functions. The basic building blocks 
for all of the functions that I will be discussing are the VMS 
system services. 

SYSTEM SERVICES 

System services are the VAX version of RSTS sys calls. 
While sys calls are cryptic, unwieldly, difficult to understand 
and even more difficult to use, system services are all of this 
and more! Actually, system services are more straightfor¬ 
ward and easier to use because they follow the standard 
VMS calling procedures. They are invoked similar to a user 
defined function (E% = SYS$ASSIGN), they take a list of 
parameters, and they return a status code as their value. 

VMS maintains a very long list of internal integer status 
codes that can be referenced within a program via the 
EXTERNAL INTEGER CONSTANT statement. These codes 

range from VAX BASIC error codes (BAS$_CANFINFIL 

meaning can't find file or account) to RMS status codes 

(RMS$_FNF meaning file not found) to system service 

status codes (SS$_NOPRIV meaning insufficient privilege). 

Any system service return status can be tested against 
these status codes (IF E% = SS$_NOPRIV in the above ex¬ 

ample) to test for expected errors or a normal successful 
status (SS$_NORMAL). 


A program that is going to call a system service must 
first declare the system service and any external constants 
(status codes) via the EXTERNAL statement. Example 1 is 
an example program that calls the system service 
SYS$BRDCST which broadcasts a message to a specified ter¬ 
minal. This and all of the other system services are described 
in detail in the SYSTEM SERVICES REFERENCE MANUAL. 


************************************* 


10 

I SYSTEM 

SERVICE 

EXAMPLE PROGRAM & 


20 

EXTERNAL 

INTEGER 

FUNCTION SYS$BRDCST 

& 

\ 

EXTERNAL 

INTEGER 

CONSTANT SS$_NORMAL 

& 

30 

BRD.MESS$ 

= 'THIS 

IS A TEST MESSAGE' 

& 

\ 

RECEIVING 

.TERMINAL$ = 'TTA6:' 6 



\ E% = SYS$BRDCST (BRD.MESS$,RECEIVING.TERMINAL$) & 

\ PRINT 'ERROR IN MESSAGE SEND' & 

IF E% <> SS$_NORMAL & 

40 END & 


Example 1 

************************************* 


ECHO CONTROL 

VMS does not handle opening a terminal in mode 8 
(echo control mode). This mode is used to define specific 
fields (with specific lengths) that should be input from and 
displayed at specific positions on the terminal screen. 

A typical application of this type would be the need to 
perform a data entry function via a predefined input screen 
format or to display control information while allowing an 
operator to move about the screen and enter selected fields 
of data. 

While VMS does not perform echo control mode in the 
same fashion as RSTS, it does allow a program to do direct 
QIO's to any physical device including the keyboard. A 
special form of a QIO called read with prompt' enables a pro¬ 
gram to effectively perform controlled field input. 

TERMINAL QIO'S 

The first step in performing QIO’s to any device is to 
assign that device to a specific channel (this is different 
from opening a file on a channel). This is done via the system 
service SYS$ASSIGN. Example 2 shows an external integer 
function that accepts a keyboard specification. (TT on the 
VAX rather than KB:) and returns both an assigned channel 
number and a terminal type (VT52, VT100, etc.). A user sup¬ 
plied external function TERM_TYPE is called to provide the 

terminal type (this uses the system service SYS$GETDEV). 

Once a channel has been assigned to the keyboard, the 
system service SYS$QIOW can be used to perform I/O to the 
terminal. A QIOW is an I/O with a wait for the device to re¬ 
spond. Several different functions can be performed via 
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SYS$QIOW. The one we are interested in is read with 

prompt. This is specified by passing 10$_READPROMPT 

(another external constant) to the system service. 

************************************ 

10 FUNCTION INTEGER TERM_ASSIGN (TERMINAL.ID$, & 

TERMINAL.CHANNEL%, & 
TERMINAL.TYPE$) & 

20 EXTERNAL INTEGER FUNCTION SYS$ASSIGN, & 

TERM_TYPE & 

\ E! = SYS $ASS IGN (TERMINAL.ID$,TERMINAL.CHANNEL!) & 

\ E% « TERM_TYPE (TERMINAL.ID$,TERMINAL.TYPE$) & 

32767 TERM_ASSIGN = E% & 

\ FUNCTIONEND & 

Example 2 


Example 3 shows an example of a QIOW using the 

10$_READPROMPT function. The argument list allows you 

to specify the channel number assigned to the terminal, the 
function to be performed, a string to receive the data read, 
the length of that string, a string that determines which 
characters should be terminators (we'll talk about that in a 
minute), a prompt string, and the length of that prompt 
string. Other parameters are allowed and can be found in 
the SYSTEM SERVICES REFERENCE MANUAL and the I/O 
USERS GUIDE. 

************************************ 

10 ! SAMPLE QIOW WITH READPROMPT & 

EXTERNAL INTEGER FUNCTION SYS$QIOW & 

\ EXTERNAL INTEGER CONSTANT SS$_NORMAL, & 

10 $_READPROMPT & 

\ READ.FUNCTION! = IO$_READPROMPT & 

\ INPUT.BUF.LEN! = 50! & 

\ READ.PROMPT$ = 'Enter field - ' & 

\ PROMPT.LEN! = LEN(READ.PROMPT$) & 

20 E! = SYS$QIOW (TERM.CHANNEL!, 1 FROM SYS$ASSIGN & 

READ.FUNCTION! BY VALUE,,,, 6 
INPUT.FIELD$ BY REF, & 

INPUT.BUF.LEN! BY VALUE,, & 

TERMINATOR.MASK BY REF, & 

READ.PROMPT? BY REF, & 

PROMPT.LEN! BY VALUE) & 

\ PRINT 'ERROR IN SYSTEM SERVICE' & 

IF E! <> SS$_NORMAL & 

32767 END & 

Example 3 

************************************ 


By passing these parameters to the system service, you 
can define a field of a specific length to be input from the 
terminal. The field will be returned to the program either 
when a terminator is typed or when the field is full. By com¬ 
bining this with a function to position the cursor at a specfic lo¬ 
cation (by printing the proper escape sequences just as under 
* RSTS), controlled, esthetic data entry can be performed. 


TERMINATORS 

A program using the SYS$QI0W system service can 
specify its own set of terminator characters. This is done by 
turning on any of the low order 32 bits of a 64 bit quad- 
word. Each of the bits 0—31 represent the ascii characters 
0—31 (bit 3 is control C, 26 is control Z, etc.). Thus any of 
the ascii characters 0—31 can be specified as a terminator 
by turning on the appropriate bit. 

The easiest way to do this is to start with a 32 bit 
longword set to zero and “OR" it with the proper power of 2 


to turn that bit on. Thus, if A% is a long word with a value 
of zero, A% = A% OR 2* *26% would cause a control Z to 
become a terminator. A% = A% OR 2* *1% FOR 1% = 0% 
TO 31 % would cause all of the ascii characters 0—31 to 
become terminators. 

As mentioned above, the low order 32 bits of a 64 bit 
quadword need to be set to determine the terminators. The 
simplest way to set up the quadword would be to define a 
map as follows: 

MAP (TERMMASK) LONG TERMINATOR.MASK. LOW.ORDER.BITS 

This defines two successive long words (a quadword). The 
variable LOW.ORDER.BITS can then be used as A% was in- 
the above examples to set up the terminators. 

The example program at the end of this article shows 
an external function that can be called to execute controlled 
terminal I/O. It was originally designed to facilitate the con¬ 
version of data entry screen formats but can be used by any 
application that needs to control the input of data by an 
operator. 

WILDCARDS 

A second function that does not lend itself easily to 
VMS is in-program wildcard directory lookups. Several con¬ 
version applications needed to send individual messages to a 
receiving program containing the names of each file in a 
specified directory. RSTS handled this problem via the 
wildcard directory sys call. VMS has no simple system ser¬ 
vice that will return file names given a wildcard specifica¬ 
tion. In fact, the VMS documentation's only reference to this 
function is in the back of the RMS REFERENCE GUIDE 
(chapter 13). 

RMS does provide two system services that, with some 
considerable effort, perform wildcard lookups. (This RMS-32 
facility, unlike its RSTS counterpart, allows wildcard 
characters in the directory specification as well as the file 
name.) In order to do this, however, one needs to under¬ 
stand and manipulate internal RMS file information struc¬ 
tures: namely the FAB and NAM blocks. 

FAB AND NAM BLOCKS 

The FAB is an internal block of data that describes a 
particular file. The fields of the FAB contain information 
about the file such as the name of the file, the file's 
organization, its record format, space allocation, etc. The 
RMS REFERENCE GUIDE describes the FAB and gives a list 
of all the fields contained in the FAB. A map or common 
area can then be set up to define the fields of a FAB in your 
program. 

The first word of caution, which is very important if 
you attempt to use the FAB block, is that the table in the 
manual that describes each field in the FAB is in alphabetical 
order. If you set up a map with the fields in the order listed 
in the table, your program will provide some interesting but 
highly inaccurate results. The second word of caution is that 
a field, right in the middle of the FAB block, is not listed in 
the table! 

This little bit of information was discovered by expand¬ 
ing the FAB MACRO definition and looking at the offsets 
(listed in the table) and field lengths. Example 4 shows how 
to obtain the MACRO expansion listing. 
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The expanded MACRO listing contains information 
about the internal variables used by the MACRO. The FAB 
and NAM block offsets and the lengths of each of the fields 
appears on the first two pages. If reading an expanded 
MACRO listing is not your cup of tea. the examples below 
show how to incorporate the FAB and NAM blocks into your 
program. 


$ MAC/LIST*FABTEST TT 
.LIST BINARY 
$FAB 
$NAM 
.END 

$ PRINT FABTEST.LIS 
Example 4 

************************************* 


Example 5 offers a Vax Basic callable function which 
performs wildcard directory lookups. It shows a map for the 
FAB block and the NAM block (described below) that have 
the fields in the proper order and with the proper lengths. 

The NAM block contains supplementary information 
about a file such as device and directory information, ex¬ 
panded file name strings and wild card character context. 
Again, the manual does not provide enough information to 
accurately set up a NAM block map. Example 5 contains the 
complete NAM block layout. 

SYS$PARSE 

The first step in performing a wildcard directory lookup 
is the SYS$PARSE system service (described only in the RMS 
REFERENCE GUIDE). This service takes information pro¬ 
vided in the FAB block, parses it, and allocates fields in the 
NAM block to store the wild card character context for 
subsequent searches. This service need only be called once in 
the case of iterative directory lookups. 

In order to use SYS$PARSE, certain fields in the FAB 
and NAM blocks must be initialized. The external function in 
Example 5 performs the SYS$PARSE system service in the 

function FNSET.UP%. The FAB$C_BID and NAM$C_BID 

external integers must be provided to identify the FAB and 
NAM blocks. Also, the length of the FAB and NAM blocks 
must be placed in the FAB.BLN and NAM.BLN fields. The ex¬ 
ternal constants FAB$C_BLN and NAM$C_BLN can be 

used for this purpose. 

The remainder of the fields that need to be initialized 
can be found in the RMS REFERENCE GUIDE, chapter 13, 
pages 13-4 and 13-5. 

SYSSSEARCH 

Once the wildcard specification has been parsed, the 
directory specified in the NAM block can be searched via the 
SYS$SEARCH system service. SYS$SEARCH will return one 
file name at a time and can be called iteratively until the 

status code RMS$_NMF (nor more files) is returned. The 

service maintains its own internal wildcard count (in 
NAM.WCC) so that it never gets lost in the middle of the 
directory. 

The sample external function in Example 5 shows the 


10 EXTERNAL INTEGER FUNCTION WILD_LOOK (WILDCARD.SPEC$, & 

FILE.NAMES, & 

FIRST.TIME.FLAGS) & 

\ EXTERNAL INTEGER CONSTANT FAB$C_BID, NAM$C_BID, & 

FAB$C_BLN, NAM$C_BLN, & 
FAB$V_OFP, RMS$_NORMAL & 

\ EXTERNAL INTEGER FUNCTION SYSSPARSE, SYSSSEARCH & 


20 


\ 

30 


MAP (FAB) 


MAP (FAB) 
MAP (NAM) 


STRING 

FAB.BID - 1%, 

STRING 

FAB.BLN - 1%, 

fc 

WORD 

FAB.IFI, 

LONG 

FAB.FOP, & 


LONG 

FAB.STS, 

LONG 

FAB.STV, fc 


LONG 

FAB.ALQ, 

WORD 

FAB.DEQ, t 


STRING 

FAB.FAC - 1%, 

STRING 

FAB.SHR « 1%, 

& 

LONG 

FAB.CTX, 

STRING 

FAB.RTV » 1%, 

& 

STRING 

FAB.ORG = 1%, 

STRING 

FAB.RAT - 1%, 

fc 

STRING 

FAB.RFM = 1%, 

LONG 

FAB.JNL, fc 


LONG 

FAB.XAB, 

LONG 

FAB.NAM, & 


LONG 

FAB.FNA, 

LONG 

FAB.DNA, & 


STRING 

FAB.FNS « 1%, 

STRING 

FAB.DNS « 1%, 

t 

WORD 

FAB.MRS, 

LONG 

FAB.MRN, & 


WORD 

FAB.BLS, 

STRING 

FAB.BKS = 1%, 

fc 

STRING 

FAB.FSZ « 1%, 

LONG 

FAB.DEV, 6 


LONG 

FAB.SDC, 

LONG 

FAB.SDC1, & 


LONG 

FAB.SDC2 & 




FAB.BLOCK = 80% & 




STRING 

NAM.BID * 1%, 

STRING 

NAM.BLN - 1%, 

t 

STRING 

NAM.RSS - 1%, 

STRING 

NAM.RSL - 1%, 

& 

LONG 

NAM.RSA, 

WORD 

NAM.RSA1, & 


STRING 

NAM.ESS * 1%, 

STRING 

NAM.ESL « 1%, 

& 

LONG 

NAM.ESA, 

LONG 

NAM.RLF, 6 


STRING 

NAM.DVI -16%, 

WORD 

NAM.FID, & 


WORD 

NAM.FID1, 

WORD 

NAM.FID2, & 


WORD 

NAM.DID, 

WORD 

NAM,DID1, & 


WORD 

NAM.DID2, 

LONG 

NAM.WCC, fc 


LONG 

NAM.FNB & 





40 MAP (WILDLOOK_FILENAME) ORIG.FILE.NAMES -63%, & 

NAM.FILE.NAMES - 63%, fc 
RESULT. FILE. NAMES - 63% & 


50 EXEC% - FNSET.UP% IF FIRST.TIME.FLAG% fc 

\ GOTO 32767 IF E% <> RMS$_NORMAL AND & 

FIRST.TIME.FLAG% & 

\ E% - SYSSSEARCH (FAB. BLOCK BY REF,,) & 

\ FILE. NAMES - LEFT (RESULT. FILE. NAMES, ASCI I (NAM. RSL) ) & 

IF E% = RMS$_NORMAL & 

\ GOTO 32767 & 

100 DEF FNSET.UP% & 

\ NAM.FILE.NAMES, RESULT.FILE.NAMES - SPACES(63%) & 

\ FAB.BID - CHRS(FAB$C_BID) & 

\ NAM.BID « CHRS(NAM$C_BID) fc 

\ ORIG.FILE.NAMES = WILDCARD.SPECS & 

\ FAB.FNA - LOC (ORIG. FILE. NAMES) & 

\ FAB.FNS - CHRS(LEN(WILDCARD.SPECS)) & 

\ FAB.IFI - 0% & 

\ FAB.NAM = LOC(NAM.BID) & 

\ FAB.BLN = CHRS(FAB$C_BLN) & 

\ NAM.BLN « CHRS(NAM$C_BLN) & 

\ NAM.ESA « LOC(NAM.FILE.NAMES) 6 

\ NAM.ESS = CHRS(LEN(NAM.FILE.NAMES)) & 

\ NAM.RSA = LOC(RESULT.FILE.NAMES)) & 

\ NAM.RSS = CHRS(LEN(RESULT.FILE.NAMES)) & 

110 E% = SYSSPARSE(FAB.BLOCK BY REF,,) & 

\ FNEND & 


32767 WILD_LOOK = E% & 
\ FUNCTIONEND & 


Example 5 


SYS$SEARCH system service being called after the 
SYS$PARSE service. The parameter flag FIRST.TIME.FLAG% 
is used to determine wether or not the SYS$PARSE system 
service should be performed. If it is performed each time the 
function is called, only the first file name in the directory 
would ever be returned. 

CONCLUSION 

While some of the functions that many of our pro¬ 
grams have come to depend on under RSTS do not exist 
under VMS, there are ways to emulate these functions on 
the VAX. As a whole, VMS provides many more functions 
that make writing those programs that use tricky system 
techniques much easier. 
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This function provides any program written in a VAX 
native mode language with capabilities similar to RSTS cursor 
and echo control modes. It allows the program to specify 
cursor positioning, prompting text, field length, etc. and 
returns to the program the operator entered string. Its 
original purpose was to provide input capabilities similar to 
the Dupont sponsered TAM data entry package. It can, however, 
be used by any program that needs to retrieve data from the 
operator in a controlled, esthetic fashion. 


The function parameters are: 
PROMPT.TEXTS 


PAINT.CHARACTERS 


DEFAULT.ANSWERS 


Any prompting string 
that should appear with 
the input field 

The character that will 
define the data position 
prior to data entry 

A string that should be 
returned in place of a 
blank field 


PROMPT.COLUMN! 

PROMPT.LINE% 


Starting screen column 
for the prompting text 

Starting screen line for 
the prompting text 


INPUT.COLUMN* 

INPUT.LINE* 

FIELD.LENGTH* 


TERMINAL.CHANNEL* 

TERMINAL.TYPES 


Starting screen column 
for the input area 

Starting screen line for 
the input area 

Predefined length of the 
input field. Either a 
terminator or a full 
field will end data 
entry for this field 

The keyboard ('TT') from 
which data entry can be 
be expected. 

The type of terminal to 
be used (VT52, FT1, etc) 


DONT.ECHO* 


CLEAR.SCREEN* 


KEYPUNCH.MODE* 


INPUT.DATAS 


Flag to indicate whether 
or not the data entered 
should be echoed (true 
or false only) 

Flag to indicate whether 
or not the screen should 
be cleared prior to data 
entry (true or false) 

Flag to indicate whether 
to break on field full 
or insist on an operator 
typed terminator. 

The operator entered 
data being returned to 
the calling program. 


11 m m 11111 m m m m 11 m i m ! m i m 111! m i m!! m i m 
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FUNCTION INTEGER PHO_KEYIN ( PROMPT.TEXTS, fc 

PAINT.CHARACTERS, fc 
DEFAULT.ANSWERS, fc 
PROMPT.COLUMN*, fc 
PROMPT.LIFE*, t 
INPUT.COLUMN*, fc 
INPUT.LINE*, fc 
FIELD.IFNGTH*, fc 
TERMINAL.CHANNEL*, fc 
TERMINAL.TYPES, fc 
DONT.ECHO*, fc 
CLEAR.SCREEN*, fc 
KEYPUNCH.MODE*, fc 
INPUT.DATAS ) fc 


1010 


\ 


\ 


EXTERNAL INTEGER FUNCTION 


EXTERNAL INTEGER CONSTANT 


MAP (TRMASK) LONG 


SYSSQIOW, fc 
PHO_DISPLAY, fc 
PHO_HOMEUP, fc 
PHO_CLRSCN, fc 
PHO.CURPOS fc 
IO$_READPROMPT, fc 
IO$M_TRMNOECHO, fc 
IO$M_NOECHO, fc 
SS$_NORMAI. fc 
TERMINATOR.MASK, fc 
LOW.ORDER.MASK fc 


1020 ON ERROR GOTO 19000 fc 

\ E* «= CTRLC fc 

\ TRUE* - (1* - 1*) fc 

\ FALSE* - (1* ■ 0*) fc 

\ F* ■ PHO_HOMEUP (TERMINAL.TYPES,HOME.UPS) fc 

\ E* » PHO_CLRSCN (TERMINAL.TYPES.CLEAR.SCREENS) fc 

\ PRINT HOME.UPS f CLEAR.SCREENS IF CLEAR.SCREEN* fc 

\ E* ■ PHO_CURPOS (TERMINAL.TYPES,INPUT.COLUMN*,INPUT.LINE*,INPUT.POSS) fc 

\ E* = PHO.CURPOS (TERMINAL.TYPES,PROMPT.COLUMN*,PROMPT.LINE*, fc 

PROMPT.POSS) fc 
\ LFS « CHRS(10*) fc 

\ CRS - CHRS(13*) fc 

\ CTLZS » CHRS(26*) fc 

\ CTLCS « CHRS(3*) fc 

\ ESCS « CHRS(27*) fc 

\ LOW.ORDER.MASK = 0* fc 

\ LOW.ORDER.MASK = LOW.ORDER.MASK OR 2***1* FOR 1* « 0* TO 30* fc 

\ LOW.ORDER.MASK = LOW.ORDER.MASK XOR 2***2I* fc 

\ READ.FUNCTION* = IOS_READPPOMFT OR IO$M_TRMNOECHO fc 

\ READ.FUNCTION* = READ.FUNCTION* OR IO$M_NOECHO fc 

IF DONT.ECHO* fc 

\ INPUT.FIELDS « SPACES(FIELD.LENGTH*) fc 

\ INPUT.PUF.LEN* = LEN(INPUT.FI ELDS) fc 

\ PAINT.STRINGS » STRINGS (FIELD. I.FNGTH*, ASCI I (PAINT.CHARACTERS) ) fc 

\ PAINT.STRINGS - STRINGS(FIELD.LENGTH*,ASCI I(' ')) * 

IF PAINT.CHARACTERS * •• fc 
\ BACK.SPACESS « STRINGS(FIELD.LENGTH*,8*) fc 

\ READ.PPOMPTS - PAINT.STRINGS ♦ BACK.SPACESS fc 

\ READ.PPOMPTS « INPUT.POSS ♦ READ.PPOMPTS fc 

UNLESS II PUT.COLUMN* = 0* AND INPUT.LINE* - 0* fc 
\ BEAD.PROMPTS - PROMPT.TEXTS ♦ READ.PPOMPTS fc 

UNLESS PROMPT.TEXTS = •• fc 



CIRCLE 80 ON READER CARD 


\ READ.PROMPTS = PROMPT.POSS * READ.PROMPTS fc 

UNLESS PROMPT.LINE* * 0* AND PROMPT.COLUMN* ■ 0* fc 
\ PROMPT.LEN* = LEN(READ.PPOMPTS) fc 

1030 ERROR* ■ SYSSQIOW ( , TFRMINAL.CHANNEL* BY VALUE, fc 
READ.FUNCTION* BY VALUE,,,, fc 
INPUT.FIELDS BY REF, fc 
I NPUT. BUF. I.FN* BY VALUE,, fc 
TERMINATOR.MASK BY REF, fc 
PFAD.PPOMPTS BY REF, fc 
PROMPT. I.EN* BY VALUE) fc 

1U40 GOTO 32767 IF ERROR* <> ££S_NORMAL fc 
\ ESC.LOT* « INSTRll*,INPUT.FIELDS,ESCS) fc 

\ LF.IOC* « INSTRd* ,INPUT.FIELDS,I FS) fc 

\ CTLZ.LOC* - INSTR(1*,INPUT.FIELDS,CTLZS) fc 

\ FOUND.ONE* ■ FALSE* fc 

\ FOR I* « 1* UNTIL I* - 31* OP FOUND.ONE* fc 

\ TERMINATOR.LOC* • INSTR(1*,INPUT.FIELDS,CHRS(I*)) fc 

\ FOUND.ONE* - TRUE* IF TERMINATOR.LOC* <> 0* fc 

\ NEXT I* fc 

\ IF ESC.LOC* <> 0* THEN fc 

INPUT.FIELDS - CHRS(27*) ♦ SPACES(FIELD.LFNGTH*-1*) fc 
\ GOTO 1070 fc 

ELSE fc 

IF LF.LOC* <> 0* THEN fc 

INPUT.FIELDS - LFS ♦ SPACES(FIELD.LENGTH*-1*) fc 
\ GOTO 1070 fc 

ELSE fc 

IF CTLZ.LOC* <> 0* THEN fc 

INPUT.FIELDS - CTLZS ♦ SPACES(FIELD.LFNGTH*-1*) fc 
\ GOTO 1070 fc 

ELSE fc 

IF TERMINATOR.LOC* <> 0* THEN fc 

INPUT.FIELDS - LEFT(INPUT.FI ELDS, fc 
TERMINATOR.LOC*-l*) 4 • • ♦ fc 
RIGHT(INPUT.FIELDS,TERMINATOR.LOC*+1*) fc 

1090 IF INPUT.FIELDS - " THEN fc 

INPUT.FIELDS - DEFAULT.ANSWERS fc 
\ E* « PHO_DISPLAY (TERMINAL.TYPES, fc 

TERMINAL.CHANNEL*, fc 
INPUT.COLUMN*, fc 
INPUT.LINE*, fc 
INPUT.FIELDS) fc 

1060 INPUT.FIELDS - LEFT(INPUT.FI ELDS,FIELD.LENGTH*) fc 
\ INPUT.FIELDS « INPUT.FIELDS ♦ • • fc 

UNTIL LEN(INPUT.FIELDS) * FIELD.LENGTH* fc 

10/0 INPUT.DATAS - INPUT.FIELDS fc 

\ GOTO 32767 fc 


19000 IF ERR - 28 THEN fc 

INPUT.DATAS - CTLCS ♦ SPACES(FIELD.LENGTH*-1*) fc 
\ RESUME 32/67 fc 


32767 

\ 


PHO_KEYIN • ERROR* 
FUNCTIONFND fc 











page 58 


April 1982 


THE BASICS OF NETWORKING AND DIGITAL 
COMMUNICATION FOR THE SYSTEM MANAGER 

By Michael H. Koplitz 


Digital communication is used in all aspects of com¬ 
puting, from the asynchronous terminal to synchronous 
communication between CPUs. Networking involves the use 
of digital communication between several devices and CPUs. 
The objective of this article is to acquaint the RSTS/E 
System Manager to the methods and terminology of digital 
communication. 

BASIC ELEMENTS OF COMMUNICATION 

1 . Message — a sequence of characters used to convey 
information or data. 

2. Transmission — the act of sending a message be¬ 
tween the sender and receiver. 

3. Sender (transmitter) — a device which has a message 
to communicate. 

4. Receiver — a device capable of receiving or accepting 
a message. 

5. Medium (of transmission) — the way of getting the 
message from the sender to the receiver. 

6. Noise — anything that interferes with the process of 
communication. 

7. Efficiency — effective use of the communication 
channel. 

TYPES OF TRANSMISSION 

Parallel transmission — the medium of parallel 
transmission consists of one wire for each bit in a character 
plus an additional wire for a clock or strobe signal. The clock 
or strobe tells the receiver to read the character which is on 
the other wires. This type of transmission is good for high 
speed data transmission. 

Serial transmission — the medium of serial transmis¬ 
sion consists of a pair of wires, one wire to transmit data 
and one wire to act as a common signal ground. Bits are 
transmitted serially, one after the other. Most serial 
transmissions can be sent over telephone lines by using a 
modem. A modem is a device which converts a binary 
(digital) signal into an analog signal by modulation at the 
transmitter's end. The modem at the receiver's end 
demodulates the analog signal into a binary signal. 

20 mA transmission — a technique used to transmit 
binary data along serial lines. This method transmits 
the binary data by turning a 20 mA (milli-amp) current 
on and off. The flow of current indicates a "1 ” bit and a 
“0" bit is indicated by stoping the flow of current. 20 
mA transmissions can not use modems. 

E1A transmission — a second technique used to 
transmit binary data along serial lines. This method 
transmits data by reversing the polarity of the voltage 
on a dc serial line. A positive voltage on the line com¬ 
municates a "0" bit and a negative voltage com¬ 
municates a “1" bit. 


Voltage varying systems are more susceptible to 
noise. The E1A system is based on standards prepared 
by the Electronics Industry Association and includes the 
definition of modem control signals. Most modems 
manufactured in the United States are compatible with 
the EIA standard RS-232C. 

CCITT transmission — a third technique used to 
transmit binary data along serial lines. CCITT is a 
voltage varying system based on standards prepared by 
the International Consultative Committee on Telephony 
under the auspices of the United Nations. 

MODES OF TRANSMISSION 

Simplex — communication can only occur in one direc¬ 
tion on the wire pair. 

Half-duplex (HDX) — communication can occur in either 
direction on the wire pair but only in one direction at a time. 

Full-Duplex (FDX) — communication can occur in either 
direction on the wire pair at the same time. 

ASYNCHRONOUS SERIAL TRANSMISSION 

In asynchronous serial transmission, the sender trans¬ 
mits a character whenever a character is ready to be 
transmitted. Sometimes this type of transmission is called 
“Start/Stop" transmission. This is because a start bit is 
transmitted first, then the character, followed by a stop 
bit(s). 

A line is said to be idle when no characters are being 
communicated. As soon as the receiver senses the start bit. 
the receiver starts a clock which measures bit times. The 
receiver then samples the next eight bits and places them 
into a register for transfer to memory. The next bit(s) is the 
stop bit. which must be a '"I” bit. A stream of stop bits will 
indicate that the line is idle. Whenever a "0" (start) bit comes 
down the line the receiver would then start the clock. 

This is not a very efficient way to communicate because 
at least two out of every ten bits serve as start and stop 
bits, which do not communicate data. 

SYNCHRONOUS SERIAL TRANSMISSION 

In synchronous communication and entire block of 
characters is sent at a time. Special synchronous characters 
are sent before and after each block to coordinate or syn¬ 
chronize both the sender and the receiver. There is not any 
need for start and stop bits since the entire block of 
characters is synchronized. Therefore the synchronous 
technique uses the line more efficiently than the asyn¬ 
chronous serial transmission. 

SYNCHRONOUS PROTOCOL 

Every protocol has the following functions: controlling 
data transfers, error checking and recovery, information 
coding, information transparency, line utilization, syn- 
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chronization, communications facility transparency, and 
bootstrapping. 

Controlling data transfers — there are three elements 
involved, formatting, control information and "handshak¬ 
ing" procedures. Control data and error checking informa¬ 
tion are contained in one block: 


Iheader or !body or text field Itrailer or error! 
Icontrol field! !checking field ! 


The header contains addressing, block sequencing, con¬ 
trol flags and acknowledgement information. The address¬ 
ing is used for determining the destination of the data. 
Block sequencing ensures that no transmission is lost or 
duplicated. The control flags are used to indicate whether 
the transmission is data, control-only, first, intermediate or 
last block of the message. Control messages are used to 
determine who transmitted and who received the data. It is 
also used for the receiver to acknowledge the receipt of data 
and whether it is a good or bad transmission. This procedure 
of acknowledgement is refered to as handshaking. 

Error checking and recovery — assures correct recep¬ 
tion of data. Check bits are transmitted with the message 
which are used in verifying that the data transmitted is cor¬ 
rect. The check bits are commonly called block check 
characters (BCC) which make up the trailer field of the 
transmission block. 

Methods to check errors: 

Vertical Redundancy Checking (VRC) — parity 
checking is done on each character as the data is re¬ 
ceived. The parity can be even or odd. 

Longitudinal Redundancy Checking (LRC) — uses 
exclusive OR logic to check the entire block for er¬ 
rors after the block is received. After each transmission 
the receiving station normally replies with a positive 
(ACK) acknowledgement or with a negative (NAK) 
acknowledgement. 

Cyclic Redundancy Checking (CRC) — also checks 
the block after the entire block has been received. This 
method uses polynomial division of the data stream by 
a CRC polynomial to check for errors. This is a very com¬ 
plex method to check for errors. 

Information Coding 

ASCII (American Standard Code for Information Inter¬ 
change) — this code was introduced by the USA Stan¬ 
dards Institute. It is a seven bit-plus-parity code. There 
are several codes in the scheme which have been set 
aside for communication control. The parity can be 
either even or odd. 

Data Interchange Code — is a variation of the ASCII 
code, some of the printing characters of the ASCII code 
have been replaced by non-printing control characters. 
The parity must be odd. 

Other types of code are Extended Binary Coded 
Decimal Interchange Code (EBCDIC). Baudot Code (a five 
bit code used on the old teleprinters). Four of Eight 
Code, IBM Punch Card Hollerith Code, Binary Coded 
Decimal Code (BCD) and the six bit Transcode. 


ASYCHRONOUS TRANSMISSION LOGIC 

(figure A) 



ASYCHRONOUS RECEPTION LOGIC 

(figure B) 







RSTS SITE MANAGEMENT 
AND APPLICATION 
DEVELOPMENT TOOLS 


□ APC 

an automatic password changer 
that creates meaningful six- 
character passwords and up¬ 
dates the ACCT.SVS file, 
allows selective changing of 
passwords and produces three 
informative reports. 


ENCRYPTION ROUTINES 
a site security feature which 
encodes ASCII characters and 
can be incorporated into any 
application where sensitive data 
is processed. Also exists as a 
stand alone program for encod¬ 
ing and decoding entire files. 


□ M/APS 

a menu/authorization proces¬ 
sor and application security 
system that controls user 
access to menus and applica¬ 
tions programs. Uses DEC'S 
VT series CRTs. 


STANDARD SUBROUTINE 
LIBRARY 

callable macro-11 routines that 
perform screen and terminal 
I/O, cursor positioning and 
many other necessary program 
functions, including data con¬ 
versions. 


□ SOURCE/FILE 

CROSS-REFERENCE (XREF) 
XREF provides cross-reference 
listings which detail the rela¬ 
tionship between source files, 
callable routines, data files and 
task images. 


VT100 ACCOUNTING 
CALCULATOR 
a multi-function calculator de¬ 
signed for user's of DEC'S 
VT100 CRTs. Options and 
features beyond the capabili¬ 
ties of the normal Accountant's 
calculator. 


McHUGH, FREEMAN & ASSOC., INC. 
1135 Legion Drive 
Elm Grove, Wisconsin 53122 
(414) 784-8250 
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Software 

Product 

Description 

Product Name: LOCK-11 Version 2.2 
Description: 

Lock-11 is a security superstructure built upon the standard RSTS 
password structure that provides the following extensions: 

• Absolute control of system access by keyboard. Manager may 
limit any keyboard to certain accounts or groups of accounts 
and control time as well as day of week access. 

• Password knowledge is no longer carte blanche system access. 
System detects unauthorized use of passwords. Privileged 
passwords don't work on non-privileged keyboards. Non- 
privileged passwords work only on specified keyboards. 

• Real time system surveillance. Manager specifies a list of alarm 
keyboards which log all infractions and probes as they happen. 
Opser is not required. 

• Auto-login (with or without password) and chain with specified 
core common contents by KB. 

• Manager may establish special priority/burst settings by KB. 
Manager may establish default output protection code. @ as¬ 
signment and up to three specific user logicals for each KB. De¬ 
fault RTS is also selectable. All assignments are made at log-in. 

• Manager specifies a list of console keyboards from which securi¬ 
ty file editor may operate. 

• Manager may define a KB-specific access-denied message. 

• Manager may specify number of retries before access-denied 
and number of access-denied messages before line disable. 
Hangup on access denied is optional. All above may be specified 
on a per-kb basis. 

• A macro DYNPRI program is included which performs the 
following functions: 

• Users may be dispatched into ten separate priority queues, 
separately tunable on-line. Each queue has ten levels. Queues 
are selectable by KB. 

• Program detects hibernating jobs and announces the fact on 
ALARM keyboards. Privileged jobs hibernating cause extra 
loud and long alarms. 

• The program produces almost no load in operation and runs 
in 5K words. 

• Program will hold up to fourteen files open for performance 
purposes. 

Minimum Hardware/Software Required: 

Any valid RSTS/E system running Version 7.0 or later. Any version 
of RSX emulation is needed. 

Support: See License Agreement 
Installation: User Installed 
Ordering Information: 

Available on 9 track 800 or 1600 BPI tape. Multiple CPU discount 
schedule: 

First license 0% discount 

Second thru Third license 50% discount 

Fourth thru Twentieth license 70% discount 

Licensed users desiring source code for internal use only must ex¬ 
ecute a separate Program Sources License Agreement. Sources are 
available at ten times the initial license fee. 

License Fee: 

Single CPU license: $950.00. Annual maintenance at 12% of cur¬ 
rent list price. 

Contact: 

Dave Mallery 
Nationwide Data Dialog 
215 - 364-2800 
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Information Transparency — It is important that a pro¬ 
tocol be able to send binary data, floating point numbers, 
packed data, and machine language computer programs in 
the same format. Different methods are used to accomplish 
this and each different protocol does it in a different way. 

Line Utilization — is the attempt to make protocol 
utilize the communication channel to its fullest. 

Synchronization — when transmitting synchronous 
data the sender and receiver must be synchronized for 
proper reception of the transmission. To get the receiver in 
phase a unique group of bits called a sychronization se¬ 
quence precedes the transmission. The synchronization se¬ 
quence should be such that the data stream can not 
reproduce it. 

Communication facility transparency — the idea is to 
have any protocol run on any facility. This would be ideal but 
as of yet has not been done. 

Bootstrapping — ability of down line loading a computer. 


SYCHRONOUS RECEPTION LOGIC 

(figure D) 


SYCHRONOUS TRANSMISSION LOGIC 

(figure C) 



clear receive pattern 



bit dock 



1 sample b 

it buffer 


append to receive pattern 



wait for 

bit clock 
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it buffer 


append bit to character 


increment bit count 



process character 
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DIGICALC 


The total 

electronic spread sheet 
for DEC, computer systems. 



WHY SYSTEMS has 
developed the "big machine" 
software package for 
Executives, Accountants and 
Professionals who need 
their numbers fast 
and accurate. 


DIGICALC', designed exclusively for DEC 
equipment, with an amazing range of ap¬ 
plications and one of the finest built-in 
automatic training procedures on the mar¬ 
ket. Prepare everything from budgets to 
multi-yearforecasts, change one value and 
DIGICALC wil I re-com pute a 11 of you r resu Its 
and give you a hardcopy too. The tabular 
worksheet display on the wide screen can 
be as simple or complex as you wish and 
has the capability to call on numerous 
mathematical functions. For an amazing 
display of DIGICALC's ease of operation and 
virtually limitless capabilities call WHY 
SYSTEMS. Runs on RSTS/E, VMS, and Tops - 
10 / 20 . 


• ON-LINE HELP AND SELF 

TEACHING MODE 

• TEN KEY NUMERIC 

DATA ENTRY 

• EXTERNAL FILE INTERFACE 

• WORKSHEET 

CONSOLIDATION 

• ' BOARDROOM QUALITY" 

REPORTS 

• EXTENSIVE MATH FUNCTIONS 

ALGEBRAIC 

LOGICAL 

FUNCTIONAL 

SCIENTIFIC 

USER DEFINED FUNCTIONS 
•SAVES AND RECALLS 
WORKSHEETS. 

VfiWM 

WHY SYSTEMS INCORPORATED 
17130 Avondale Way, N.E. 
Redmond. WA 98052 


CALL TODAY (206)881-2331 FOR FREE BROCHURE AND DIAL-UP DEMONSTRATION 
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Rudy Bazelmans is a Software Analyst at Sykes Datatronics Inc., where he designs and codes Language Processors. 

THE ULTIMATE PUSH/PULL MACROS 

By Rudy Bazelmans. Sykes Datatronics, Inc. 


ABSTRACT 

In Assembly Language Programming it is very common to utilize the stack for tem¬ 
porarily storing groups of variables. This paper presents a set of macros for easily 
manipulating the stack on a PDP-11. Some of the richness and power of the 
MACRO-11 assembly language is also demonstrated. 


INTRODUCTION 

When manipulating the stack in Macro-11 there are a 
number of inconveniences: 

1. The instruction to push and pull items from the 
stack is awkward to write and a nuisance to 
remember. 

MOV VALUE,-(SP) ;PUSH 
MOV (SP) + .VALUE ;PULL 

2. Only one item may be placed on the stack in each line 
of source code. 

3. If you push a byte onto the stack you must 
remember to pull a byte off. otherwise you will pull a 
word off and you may unintentionally change a 
memory location. 

4. After you have pushed values on the stack, you must 
remember to pull them back off in the reverse order. 

5. Before exiting a subroutine you must remember 
which items are still on the stack so you can take 
them off. 

An approach to solving these problems is through the 
use of macros. To my knowledge, macros have been used to 
solve items 1.2. and 3 above. I am not aware of an existing 
solution to items 4 and 5. 

The following is a group of macros which I have written 
to solve all five items most notably items 4 and 5. The ex¬ 
planation of how these macros work is broken into two 
parts. The first part will center around the concept of solv¬ 
ing a subset of the problems mentioned above. The second 
part will describe the complete solution, which includes 
more features and error checking than the first part. 

For those of you who are interested in using a set of 
macros with the above properties and are not concerned 
about the details of how they work, you can simply use the 
macros in figures 3B and 4B. All the information required to 
use these macros is included in figures 3A and 4A. 

THE CONCEPT 

The easiest way to simulate the action of a stack is 
through the use of another stack. That is my basic approach 
to solving these problems. 

The first set of macros is shown in Figure 1A and 1B. 
You should take a moment and read the description in¬ 
cluded with them. These macros (along with the examples in 
figure 2A) are quite limited, but they do implement the 
basic idea of assembly time stacks. 


There is a stack pointer in these macros called PSHCT$ 
which begins at zero and keeps a count of the number of 
items PUSHed on the stack. Remember, stacks are LIFOs, 
the Last item In is the First item Out. The initialization of 
this counter is in the user’s program at line 2 of figure 2A. 
The counter is incremented whenever a new item is placed 
on the stack (line 32 of figure 1A). The counter is 
decremented again when the macro for that item is ex¬ 
panded (line 46 of figure 1 A). 

In order to place an item on the stack, you must first 
call the PUSH macro. Each argument in the group of 
arguments to PUSH is isolated one at a time (line 30 of 
figure 1A). Each argument is then moved onto the stack 
(line 31) and PSHCT$ is incremented to show that another 
value has been placed on the stack (line 32). 

Lines 33-38 is where the items PUSHed are 
remembered for the PULL macro. PSHFL$ is used to indicate 
if the current argument is the first argument to the PUSH 
macro. If it is the first argument. PSHFL$ = 0 (line 29 of 
figure 1 A). If it is not the first argument. PSHFL$ = 1. The 
setting of PSHFL$ is important to the PUSH$ macro and its 
significance will be discussed below. 

There are three parameters passed to the PUSH$ 
macro: the name of the current argument being pushed on 
the stack, the ASCII equivalent of PSHCT$, and (if the cur¬ 
rent argument is not the first argument to PUSH) the ASCII 
equivalent of PSHCT$-1. 

The PUSH$ macro (lines 42-50) defines a macro (lines 
46-48) of the name PSHname$ where name is the current 
value of PSHCT$. The macro definition consists of three 
lines. The first line restores the value of the argument from 
the stack (line 45). PSHCT$ is decremented in the second line 
in order to indicate a change in the nesting level. In the third 
line, a check is made to see if the argument which was 
passed to PUSH$ is the first argument to the PUSH macro. If 
it is the first argument, then we have restored all the 
arguments in the group. Remember that when we restore 
the values from the stack we have to do it in the reverse 
order of the way we stored them on the stack. If the current 
argument to PUSH$ is not the first argument to the PUSH 
macro, then we should call the macro that is necessary to 
restore the next argument of the group (line 47). 

At this point, we are only defining a macro to restore 
the arguments from the stack, we are not actually restoring 
them. The actual restoration will occur when the PULL 
macro calls the macro which we just defined. If the user 
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calls the PUSH macro again this entire process will be 
repeated. 

The next step is the retrieval of the data which was 
placed on the stack. The user calls the macro PULL which 
will pull the last group of values from the stack. This is ex¬ 
tremely simple. First the current value of PSHCT$ is con¬ 
verted to it's ASCII equivalent (line 28 of figure 1B) in name 
and the macro PSHname$ is called (line 29). Remember that 
PSHCT$ has the value of the last argument placed on the 
stack. 

A sample execution with the expanded code is shown in 
figure 2A. Figure 2B shows the state of the symbol table at 
line 5 of the sample execution. 


1 

.SBTTL 

PUSH SIMPLIFIED PUSH MACRO 


2 ? 

3 ; 

4 ; 

♦ NAME: 

PUSH - PUSH a group of values on the stack 


6 ; 

* DESCRIPTION 

: This macro PUSHes groups of registers, vari- 


7 ; 


ables, locations and constants on the stack. 


8 


They are pushed left to right and retrieved 


9 ; 


in reverse order using the PULL macro. 


10 ; 




11 ; 

* CALL SEQ: 

PUSH STATEMENT PUSH <group> 


12 ; 


group arg 1 arg,group 


13 ; 




14 ; 

* INPUt: 

arg - A register, variable, location or 


15 ; 


constant to be placed on the stack. Only 16 


16 ; 


bit values may be PUSHed. 


17 ; 




18 ; 

* OUTPUT: 

None 


19 ; 




20 ; 

* SIDE EFFECTS:The variables PSHFLS and PSHCT$ are used as 


21 ; 


well as macro names of the form PSHaa$ where 


22 ; 


AA is a number between 0 and 77 octal. 


23 ; 




24 ; 

* AUTHOR: 

RUDY BAZELMANS VERSION A 


25 ; 




26 ; 




27 




28 

.MACRO 

PUSH ARCS 


29 

PSHFL$=0 


30 

.IRP ARG,<ARGS> 


31 


MOV ARG,-(SP) 


32 


PSHCT$=PSHCT$+1 


33 


.IF EQ PSHFL$ 


34 


PUSH $ ARG,\PSHCTS 


35 


PSHFLS-l 


36 


.IFF 


37 


PUSH $ ARG,\PSHCT$,\<PSHCT$-1> 


38 


. ENDC 


39 

.ENDR 


40 

.ENDM 

PUS! 


41 




42 

.MACRO 

PUSH $ ARG,NAME,NEXT 


43 




44 

.MACRO PSH'NAME'S 


45 


MOV (SP) + , ARG 


4b 


PSHCT$=PSHCT$-1 


47 


.IIF NB <NEXT>, PSH'NEXT'$ 


48 

.ENDM PSH'NAME'S 


49 




50 

.ENDM 

PUSH 5 



FIGURE 1A. Macros can be used to simulate assembly time 
stacks. This macro pushes items onto the stack. 


THE ULTIMATE PUSH/PULL MACROS 

The second group of macros (figures 3 and 4) show the 
PUSH and PULL macros in their final state. This version is 
more flexible than the first version and does more error 
checking. Read figures 3A and 4A for a complete description 
of how these macros should be used. Some of the dif¬ 
ferences between the first and second set of macros are 
described below: 

There is more error checking being done in this new 
version. Line 2 of figure 3B shows a check to see that the 
user specified at least one argument in the call to the PUSH 
macro. Lines 5-7 show a check for a stack overflow. The 
limit is 63, this should be more than adequate. If you are 
PUSHing more than 63 levels deep on the stack, you're doing 
something wrong. Lines 3 and 4 of figure 4B show a check 
for an empty stack. If you want to PULL a value and you 
have never PUSHed anything on the stack, you should be 
specifying a destination on the PULL. 

The manipulation of words and bytes is also supported 


in this improved set of macros. The default argument size is 
one word but if a byte is to be PUSHed. an apostrophe (') 
should be placed before the byte argument in the parameter 
list of the PUSH or PULL (line 3 of figure 5). The code to do 
this checking is in lines 9 and 30 of figure 3B and in line 13 
of figure 4B. The unusual construct in lines 10 and 31 of fig¬ 
ure 3B and line 14 of figure 4B is executed whenever the 


1 

2 

; * ‘ 

.SBTTL 

PULL SIMPLIFIED PULL MACRO 


3 

4 

c 

I* 

NAME: 

PULL - PULL a group of values from the stack. 


J 

6 

? * 
i* 

DESCRIPTION: 

This macro PULLs groups ot values from the stack. 


8 

s * 
:* 


All the elements of the last group of values PUSHed 


9 

i* 


on the stack are now PULLed off the stack. All 


10 

;* 


the values are PULLed off in the reverse order of 


11 

;* 


the way they were PUSHed on. 


12 

j* 




13 

j # 

CALL SEQ: 

PULL 


14 

;* 




15 

; * 

INPUT: 

None 


16 

»* 




17 

; * 

OUTPUT: 

The last group of values are PULLed from the stack. 


18 

:* 




19 

; * 

SIDE EFFECTS 

:The variables PSHFL$ and PSHCT$ are used as 


20 

i * 


well as macro names of the form PSHaaS where 


21 

»* 


AA is a number between 0 and 77 octal. 


22 

;* 




23 

; * 

AUTHOR: 

RUDY BAZELMANS VERSION A 


24 

;* 




25 

; 




26 





27 


.MACRO 

PULL 


28 


. IRP 

NAME,\PSHCTS 


29 


PSH'NAME'S 


30 


.ENDR 


31 


.ENDM 

PULL 



FIGURE IB. This simple macro pulls items off 
the assembly time stack. 


1 

.SBTTL 

EXAMPLES 

2 

PSHCT$ = 

'0 

3 

PUSH 

<abc,def,gh: 


MOV 

ABC, - (SP) 


MOV 

DEF,-(SP) 


MOV 

GHI,-(SP) 

4 

PUSH 

<JKL,R0> 


MOV 

JKL,-(SP) 

5 

MOV 

R0,-(SP) 

6 

PULL 



MOV 

(SP)+, R0 


MOV 

(SP)+,JKL 

7 

PULL 



MOV 

(SP)+,GHI 


MOV 

(SP)+,DEF 


MOV 

(SP)+,ABC 


FIGURE 2A. This shows a sample execution of the 
simplified macros. 

MACRO PSH1 $ 


I I 

I MOV (SP)♦, ABC |<- 

I PSHCT$=PSHCT$-1 | | 

I 

MACRO PSH2$ I 

1 I i 

| MOVB (SP)+,DEF | | 

I PSHCT$=PSHCT$-1 |<—|- 

PSH 1 $ |- | 


MACRO PSH35 

1 1 

I MOV (SP)+,GHI | 

I PSHCT$=PSHCT$-1 | 

PSH2$ |- 

MACRO PSH4$ 

1 T 

I MOVB (SP)+ , JKL |<- 

I PSHCT$=PSHCT$-1 | | 


MACRO PSH5$ 

VARIABLE PSHCTS --- j 

1 f I MOV (SP)+,R0 I I 

| 5 I->1 PSHCT$*PSHCT$-1 I I 

I_I I PSH 4$ |- 


FIGURE 2B. The state of the macros and variables at 
line 5 of figure 2A are shown above. 
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user specifies a byte argument. The byte arguments have a 
preceeding apostrophe which must be removed before the 
instruction is generated. This is accomplished by using the 
universal unary operator (a) with an apostrophe appended to 
the end of the argument. As a result, the argument (less the 
leading apostrophe) is passed to the .IRP loop. 

The final macros contain several .MEXIT statements 
lines 16 and 45 of figure 3B and line 20 of figure 4B. These 
exist because the .IRPC loop which surrounds them only 
needs to be executed once to check for a leading apostrophe 
on each argument. 

Figure 5 shows an enhanced sample execution for the 
final version of the PUSH/PULL macros. 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 


.SBTTL >>>>>> STACK MACROS 

•SBTTL PUSH PUSH A GROUP OF VALUES ON THE STACK 


NAME: PUSH - PUSH a group of values on the stack. 

DESCRIPTION: This macro PUSHes groups of registers, vari¬ 
ables, locations and constants on the stack. 
They are pushed left to right and retrieved 
in reverse order using the PULL macro. 

CALL SEQ: PUSH STATEMENT ::= PUSH <group> 

group ::* arg I arg,group 


INPUT: arg - A register, variable, location or constant 

to be placed on the stack. The maximum stack depth 
is 77 octal. Normally words are PUSHed onto the 
stack. If a byte is to be PUSHed, preceed the arg¬ 
ument with an apostrophe (')• As a result, ASCII 
constants should not be specified since they will be 
misinterpreted by this macro. If only one argument 
is being PUSHed on the stack, the delimiters < and > 
are not necessary. 

OUTPUT: None 

ERRORS - MISSING ARGUMENT ON PUSH 
- STACK OVERFLOW 

SIDE EFFECTS:The variables PSHFL$ and PSHCT5 are used as 
well as macro names of the form PSHxx$ where 
AI is a number between 0 and 77 octal. 

AUTHOR: RUDY BAZELMANS VERSION: B 


FIGURE 3A. This documentation describes the PUSH macro. 


DEC 

RSTS/E USERS 

Vrom one of the pioneers in commercial 
data processing using RSJS. Off the shelf 
software ready for immediate delivery. 
Completely interactive. Extensively 
documented. Fully supported. Ideal for 
OEM’s, service bureaus or end users. 
Cost effective solutions including: 

• ACCOUNTS PAYABLE 

• GENERAL LEDGER 

• FINANCIAL REPORTING 

• ACCOUNTS RECEIVABLE 

• PAYROLL 

• FIXED ASSETS 

For complete details, contact us at: 

Ply e cm services, inc. 



P.O. Box 160 
Plymouth, IN 46563 
(219) 935-5121 
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11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 
4b 
4 / 


•MACRO PUSH ARGS 

. 11F B <ARGS> .ERROR ;MISSING ARGUMENT ON PUSH 

PSHFL$*0 

. TRP ARG,<ARGS> 

.IF LE “O077-PSHCT$ 

.ERROR ;STACK OVERFLOW 
. ENDC 

.IRPC CHAR,<ARG> 

.IF IDN < ' > ,<CHAR> 

.IRP VAR,< *'ARG 1 '> 

MOVB VAR , - (SP) 

.ENDR 

.IFF 

MOV ARG,-(SP) 

.ENDC 

.MEXIT 

.ENDR 

PSHCT$-PSHCT$+1 
.IF EQ PSHFL5 

PUSH $ ARG,\PSHCT$ 

PSHFL$=1 

.IFF 

PUSH $ ARG,\PSHCT$,\<PSHCT$-1> 

.ENDC 

.ENDR 

.ENDM PUSH 

.MACRO PUSH $ ARG,NAME,NEXT 
.IRPC CHAR,<ARG> 

.IF IDN < ' >,<CHAR> 

.IRP VAR,< *'ARG'*> 

.MACRO PSH'NAME'S 
MOVB (SP)+,VAR 

.IIF NB <NEXT>, PSH'NEXT'$ 

PSHCT$=PSHCT$-1 
.ENDM PSH'NAME•$ 

.ENDR 

.IFF 

.MACRO PSH'NAME'S 
MOV (SP) + , ARG 

.IIF NB <NEXT>, PSH'NEXT'S 
PSHCT$=PSHCT$-1 
.ENDM PSH'NAME'S 
.ENDC 
.MEXIT 
.ENDR 

.ENDM PUSHS 


FIGURE 3B. Here is the definition of the PUSH macro. 


.SBTTL PULL 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 ; 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 
4b 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 


PULL A GROUP OF VALUES FROM THE STACK 


NAME: PULL - PULL a group of values from the stack. 

DESCRIPTION: This macro pulls groups of values from the stack. 

In Call Sequence 1, all the elements of the last 
group of values PUSHed on the stack but not yet 
PULLed off, are now pulled off the stack. All 
the values are pulled off in the reverse order 
of the way they were PUSHed on. It is illegal 
to PULL a group of values if you have not prev¬ 
iously PUSHed them. 

In Call Sequence 2, the registers, variables or 
locations are pulled from the stack, left to right. 
In this mode, you can PULL all you want, it 
will not check for previous PUSHes. 

CALL SEQ 1: PULL 

PULL the last group ot values PUSHed. Anything 
which was placed on the stack using the PUSH 
macro may be PULLed off using this calling 
sequence except for immediate addresses. 


OUTPUT: The last group of values are PULLed from the 

stack. 

ERRORS - CAN'T PULL FROM AN EMPTY STACK 

SIDE EFFECTS:The variables PSHFLS and PSHCT$ are used as 
well as macro names of the form PSHxx$ where 
XX is a number between 0 and 77 octal. 


CALL SEQ 2: PULL STATEMENT 
group 


PULL <group> 
arg | arg,group 


INPUT: arg - Arguments to be PULLed from the stack, 

left to right. They include registers, variables 
or locations. Normally words are PULLed from the 
stack, if a byte is to be PULLed, preceed the 
argument with an apostrophe ('). As a result, 
ASCII constants should not be specified since they 
will be misinterpreted by this macro. If only one 
argument is being PULLed, the delimiters < and > are 
not necessary. 

OUTPUT: arg - Arguments PULLed from stack. 

SIDE EFFECTS:The variable PSHCT$ is used. 


RUDY BAZELMANS 


VERSION: B 


FIGURE 4A. This is the documentation for the PULL macro. 
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.MACRO PULL ARGS 
.IF B <ARGS> 

.IF EQ PSHCTS 

.ERROR ;CAN'T PULL FROM AN EMPTY STACK 
.IFF 

.IRP NAME,\PSHCT$ 

PSH'NAME'$ 

.ENDR 
. ENDC 
.IFF 

.IRP ARG,<ARGS> 

.IRPC CHAR , <ARG> 

.IF IDN <'> ,<CHAR> 

.IRP VAR,< * 1 ARG''> 

MOVB VAR ,- (SP) 

.ENDR 

.IFF 

MOV (SP)+,ARG 
.ENDC 
.MEXIT 
.ENDR 

.IIF GT PSHCTS PSHCTS*PSHCTS-1 
.ENDR 
.ENDC 

.ENDM PULL 


FIGURE 4B 



NPI proves purchasing 
Disk Sub-systems does not 
have to be 


This is the definition of the PULL macro. 

FIGURE 4B. This is the definition of the PULL macro. 


HIGH RISK 


1 .SBTTL EXAMPLES 

2 PSHCT$=0 ;INIT STK PTR 

3 PUSH <ABC,'DEF,R3> 

MOV ABC f -(SP) 

MOVB DEF,-(SP) 

MOV R3,-(SP) 

4 PUSH <JKL,R0> 

MOV JKL,-(SP) 

MOV R0,-(SP) 

5 

6 PULL R1 

MOV (SP) +, R1 

7 PULL 

MOV (SP)+,JKL 

8 PULL 

MOV (SP)+,R3 
MOVB {SP)+,DEF 
MOV (SP)+, ABC 

FIGURE 5. This is a full example of the PUSH and PULL 
macros in action. 

COMMENTS 

I have optimized the macros in figures 3 and 4 as much 
as possible in an effort to decrease memory requirements 
for frequent users, increase speed and decrease complexity. 

There are three important things to be gained from this 
paper. 

1. The constructs used in these macros are com¬ 
plicated. but by understanding each of them, you 
should be able to design much more powerful 
macros. 

2. The overall concept of using macros and variables to 
create assembly time stacks is useful in many ap¬ 
plications. especially when writing structured 
macros. 

3. You can use the macros in figures 3 and 4 in your 
own shop. The use of these macros is fully 
documented and can be used as is. It should save 
your programmers time and help reduce errors. 

REFERENCES 

Bazelmans, Rudy. "Are Macros Worth Using?" RSTS Professional. 

M. Systems Inc.. 1981. Vol. 3. No. 3. pp. 20-22. 

PDP-11 Macro-11 Language Reference Manual (AA-5075A-TQ. 
Maynard. MA.. Digital Equipment Corp. 


A RSTS INTERNALS MANUAL by Mike Mayfield 

More than 200 pages in a binder. 

— PUBLISHED BY THE RSTS PROFESSIONAL — 

Price - S95.00 
SEND ORDERS TO: 

M SYSTEMS. INC.. BOX 361, FORT WASHINGTON, PA 19034-0361 


VS 

BIG SAVINGS 

• Disk drives manufactured 
by the same vendor DEC 
buys them from 

• No operating systems 
software changes 

• One day installation 

• 100% software transparency 

• DEC'S RM05-RM03-RM02 
drivers are used 

• 50% cost savings 

• Single vendor maintenance 
in major cities 

• Uses DEC'S diagnostics 

• Timely delivery 

•DEC RP06-RP04-RM03 
RM02 accepted on trade 


NPI National Peripherals, Inc. 


41 Chestnut Lane 
Westmont, IL 60559 
(312) 325-9700 

CIRCLE 62 ON READER CARD 












page 66 


April 1982 


POLYSOFT APPLICATION LANGUAGE 

By S. Zuk (Non-DECUS Member), Polyfibron Division. W. R. Grace and Company. Lexington, Massachusetts 
Presented to DECUS Fall 1981 Conference — Los Angeles 


1.0 INTRODUCTION 

The Polysoft Application Language (PAL) was designed 
as an interface language between the polysoft data bases [1] 
and various business applications. PAL was developed as a 
user oriented language which allows development applica¬ 
tions software without having an in-depth understanding of 
hardware and system software. A comprehensive report 
program [2] (Report Manager) was created to complement 
PAL. 

2.0 LANGUAGE STRUCTURE 

Each line of PAL source code consists of a label or line 
number, a function command and a series of parameters 
(variable slots or data base element numbers) required to ex¬ 
ecute a line of code. 

PAL source code must be run through a compiler like 
Basic+ 2 program before the application program can ac¬ 
cess data base. The PAL compiler will examine the source 
code for such items as correct function commands, data 
base element verification, missing loop logic and missing or 
incorrect parameter declaration. The compiled object code is 
stored in a virtual array format and is executed through the 
polysoft data base management system. Upon completion 
of the compiler an error listing is generated. Correction of er¬ 
rors and resubmission to the compiler must be done before 
the program is executed. 

The PAL application programs functions are designed 
to handle record I/O with all the features and techniques of 
BASIC + 2 without the need for dealing with files at the bit 
and byte level. The end product is an executable program 
allowing for on-line interactive data base manipulation or 
batch processing. 

3.0 LANGUAGE COMMANDS 

The PAL commands fall into three main categories: 

3.0.1 Commands designed to handle record I/O. 

3.0.2 Commands designed to handle applications 
required logic to manipulate the records and 
elements within the data base. 

3.0.3 Special feature commands 

3.1 Record I/O Functions 

The I/O function commands allow the user to add. 
change, delete and inquire on data base files, records or 
elements. 

File Close [CLEAR] 

Allows for selective closing of files over and above 
the data base managers dynamic housekeeping routines. 

The code would appear as follows: 

A. LABELXX.CLEAR IR7S0 ! I 

OR 

B. LABELYY.CLEAR ! ! I 

A. Will close a specific file [R750] 

B. Will close all files open at that time 


Find Record [FR] 

This command will allow the user to select a record 
from a specific file using the keys specifications for the file. 
It will request from the system a screen containing promp- 
table keys for searching. Once the command is executed it 
will save the record number of the record requested to be 
used by other functions. 

The code would appear as follows: 

LABEL11.FR IR750.SLOT1 !SCR:SCREEN.TXT.LABEL99 IFIND HEADER 
LABEL 11 — Line Number 
FR — Command 
R750 - File to Search 

SLOT1 — Storage Area for Record Number Found 
SCRrSCREEN.TXT — User Defined Interface Screen-See Below 
LABEL99 — Step to Go to Incase of Abort 
FIND HEADER - Comment 


MATFFIAL REQUISITION 


TYPF CODE 

PPODUCT DESCRIPTION 
ABBREVIATED NAME 


|SCREEN 1 ! 

SELECT ! 


! 

! 

! 

! 

! 

! 

! 

! 


Highest Record [HR] 

This allows the user to find the last and highest 
record number issued by the system software. This can be 
used for controlled record access. 

The code would appear as follows: 

LABELXX.HR IR750.SLOT2 I ICET REC NUM 

HR — Command 

R750 - File to Access 

SL0T2 — Storage Area for Highest Record Number 

Input File [IF] 

The [IF] command will retrieve from the data base a 
logical group of elements from a record. Retrieval is based 
on the record number within a specific file. This record 
number is totally transparent to the user. 

The code would appear as follows: 

LABELCC.IF IR750.SLOT3.G700 IABORTEE ! 

IF — Command 

R750 — File to Access 

SL0T3 — Holding Area Containing Record Number to Access 

G700 — Group within the Record 

ABORTEE — Line to Go To in Case of Incorrect Group Selection 

NOTE: Associated with this file/group is an overlay 
screen that is used to display to the user record data. 

Move Data [MOVE] 

This instruction is like a data transfer statement in 
any other language. It allows the user to move elements 
from one file to another or move specific values to files or to 
other parts of the program without altering data. 
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The code would appear as follows: 

A. LABEL11 .MOVE IFS002.1 .R750.SL0T10..F50O2.1 .R850.SL0T20 11 

B. LABEL22.M0VE I..SL0T5...SL0rT6 ! ! 


C. LABEL33.MOVE IFS002.1.R750.SLOT10....SLOT6 I I 

D. LABEL44.MOVE I..SLOT5.F5002.1 R850.SLOT20 I I 

A. This type of code will transfer the informa¬ 
tion contained in element [F5002.1.R750] with the record 
number [SLOTIO] and place it in element [F5002.1.R850] 
with a record number index [SL0T20]. 

B. The slot to slot movement is passing data 
from [SLOTS] into [SL0T6]. 

C. Moves a value from data base field to a 
storage area [SL0T6]. 

D. Moves a value from a storage area [SLOT5] to 
a data base field. 

Operation Mode [OM] 

The function [OM] will allow the user program to 
handle data maintenance requirements as needed. It allows 
the user to add, delete, reinstate and inquire on records or 
groups within the record. Changes can be made at the 
record, group and field levels. 

The code would appear as follows: 


LABEL 11.OM ! 
LABEL 12.0M I 
LABEL 13.0M I 
LABEL 14.0M I 
LABEL 15.0M I 
LABEL 16.0M I 


I ADD 
DELETE 
IREINSTATE 
(INQUIRE 

CHANGE RECORD 
(CHANGE GROUP 


LABEL 17.0M IF5002.1.R7S0 (CHANGE FIELD 


The above statements indicate the function called 
[OM] and the operation to be performed i.e.,ADD. 

Record Issue [RA] 

The record issue function allows the user to get the 
next available record number for the file being operated 
upon. 

The code would appear as follows: 

LABEL22.RA ISL0T25.R7S0 I I 


RA — Command 


DEC 

DEC 1200 BAUD PRINTERS 
LA 120 -AA. EIA.KSR. Keyboard Only. $ ^995 

LA 120 'BA. E L A '. K f y ?°? r ^ & . K . ey . pa . d . K . SR 2 075 

lai2ora! Re H ve ! o ! niy !!!!!! 1795 

CASH PRICES • IN STOCK 
IMMEDIATE DELIVERY 

— CALL SONJA OR LAURIE AT: 
-(614) 889-0810 

SCHERER’S 

MINI COMPUTER MART 

Dublin, Ohio 43017 


6145 Dolan Place 


BRAND NEW*WARRANTY*ATD 
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3.2 Logic Functions 

Arithmetic Operations [A] 

Allows a user to perform arithmetic operations on 
paired storage areas, fields and/or constant values. It allows 
for the four basic math functions plus the concatenation of 
string data. 

The code would appear as follows: 

LABELTT.A 1 + .SL0T2..SL0T3..SLOT42.S I I 
A — Command 

+ — Type of Operation to be Performed [also 
SL0T2 — Value 1 
SL0T3 - Value 2 


SL0T25 — Storage Area of Record Number for Later Referal 
R750 — The File to Get the Next Record Number 

Record Search [SL] 

This command gives the application user the ability 
to search other data base files within the system using in¬ 
formation that is supplied by either data from other files or 
from user response. 

The code would appear as follows: 

LABELW.SL (SL0TZF5002.1 R750.SL0T20..FR750.S I.T I 
SL — Command 

F5002.1.R750 - Key Field to Search 
SL0T20 - Value User to Search F5002.1 .R750 
FR750.S — Second Key to Search 
T — Constant Value used to Search Second Key 

Save Record Number [SR] 

Gives the user the ability to save record numbers for 
future reference within the application program. This in¬ 
struction usually follows the [FR] command. 

The code would appear as follows: 

LABELQQ.SR ISL0T200 I I 
SR — Command 

SL0T200 — Storage Area for a Record Number 


SLOT 4 — Sum of Value 1 and Value 2 
2 — Number of Decimals to be Retained in the Result 
5 — Number of Leading Zeroes to be Inserted in the Result 

IF/THEN Type Compares [C] 

This command is like the IF/THEN conditional of 
statement used in Basic. It allows for the testing of condi¬ 
tions within the application to determine alternate courses 
of action based on parameters of the test. 

The code would appear as follows: 

LABELPP.C I = .SLOT1 INO.LABELXX.S I 
C — Command 

= — Type of Comparison to be Done 
SL0T1 — Variable to Compare 
NO — Constant Value 

LABELXX — Branch Destination if Compare is True 
$ — Indicates Comparison is to be Done on a String of Data 

Extraction Functions [EXTRACT] 

Extract function performs the same type of opera¬ 
tions as the instruct, left and right functions in Basic. See at¬ 
tached documentation for more detail. 

GOTO [GO] 

This command allows the user to branch to specific 
parts of the application program unconditionally as in Basic. 
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The code would appear as follows: 

LABEL23.GO ! ILABEL99 I 
GO — Command 

LABEL99 — Branch to Destination 

Input Prompts [IS] 

This function will suspend the application and require 
the user to input a response that may be used to redirect the 
program flow or supply a variable to be used as a search 
value within the current application. This prompt will ap¬ 
pear at the bottom of the screen and is independent of any 
overlay screens. 

The code would appear as follows: 

LABEL77.IS ISLCTOO.IO.I IENTER Y or N.LABEL77 I 
IS — Command 

SL0T30 — Storage Area for User Input 

10 — Ten Second Response Timer 

1 — Maximum Number Characters to be Input 

ENTER Y or N — Prompt Message to Appear on Screen Before Entry 

LABEL77 — Return Step 

Format Justification [JUST] 

This command is similar to a picture statement, it 
allows for left and right justification and the padding of 
data with other characters. See attached documentation for 
detail of governing parameters. 

3.3 Special Functions 

Polysoft Application Language, like other languages 
contains special features which allows the user to generate 
internal system sequential control numbers, display 
messages, use special date and time features. Also provided 
is the ability allowing the application user to use external 
text files in conjunction with data base files. The attached 
documentation lists these functions and parameters govern¬ 
ing the proper usage within the polysoft system. 

Partial list of special functions: 


Control Numbers [CN] 

Message Display [DM] 

Date/Time [DT] 

Special Screens [SSP] 

Text File Open [TO] 

Text File Close [TC] 


4.0 TESTING AND DEBUGGING 

The testing and debugging of a PAL generated pro¬ 
gram uses the same techniques that one would use in 
debugging any other language. For example, a debugging 
display feature is an integral part of the language. 

5.0 SUMMARY 

Users who are familiar with basic programming con¬ 
ventions, and who have a sound knowledge of the particular 
data base file structure can adapt to the language quickly 
and easily. As in the design and programming of business 
type applications a good understanding of the business en¬ 
vironment is also essential to the systems analyst. This form 
of language can translate design into functional applications 
in a short period of time. 

Attached are PAL functions that make up the 
language, along with a copy of a designed application inter¬ 
facing with the polysoft data base using several of the 
language features. 
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(-1 - date back function 


( 1 

1 

back or day 


(♦1 = date forward function 


1 1 

1 



! 2 * day of week, specify 


! 1 

1 ] 




! 3 in 1% 


1 ! 

1 1 

3% « 

destination slot 

Mand 

1 FIELD for VALDER 


1 1 

1 ! 

4% - 

increment value 

Opt 

! used with date back and for 



DEC 


DEC CRT’S 

VT101-AA. EIA, Non Upgradeable . $ 995 
VT131-AA w/AV0 ' PC0 ' & Screen Edi,in 91 575 

vtiooaa* !!!!!!!!! 1375 

VT132AA. AVO, Screen Editing . 1,450 

CASH PRICES • IN STOCK 
IMMEDIATE DELIVERY 

— CALL SONJA OR LAURIE AT:-1 

-(614) 889-0810- 1 

SCHERER’S 

MINI COMPUTER MART 

6145 Dolan Place Dublin, Ohio 43017 


BRAND NEW*WARRANTY*ATD 


CIRCLE 105 ON READER CARD 


(23 |EXTRACT) ! 

1 % 

. 

subfunction 

! Mand 

I INSTR - 1 


(Performs ext- ! 





i LEFT - 2 


(traction on ! 





! RIGHT ■ 3 


(slots . I 





! 


1(1) search for ! 

2 % 

■ 

source slot 

! Mand 

! 


! given value ! 

3% 

■ 

slot with RIGHT 


1 


! ! 



val 


! use with RIGHT 


i in a slot ! 

4% 

■ 

slot with LEFT 


! 


( ! 



val 


! use with LEFT 


1 return beg ! 

5% 

■ 

RIGHT ADD val 


i to set start ADD with 3% 


! val to slot ! 

6% 

■ 

LEFT ADD val 


! to set end ADD with 4% 


!( 2 ) get from ! 

7% 

» 

receiving slot 

! Mand 

! 


! LEFT to sum ! 

8 % 

■ 

INSTR start pos 


! 


! of 4% ♦ 6% ! 

9% 

■ 

ASCII search val 


! or string 1 


! Of 4% ♦ 6% ! 




» 

1 


i (3) get from ! 

1 $ 

■ 

search value 


1 or 8 % 


! 3% + 5% to ! 





( 


i RIGHT ! 





1 


(24 (TO) ! 

1% 

. 

Mode for open 

! Opt 

! default is zero 


(Text file open ! 





! valid options are 


! ! 





! 0 ■ open for output 


! ! 





! 8192 = read only 


i ! 





! 2 » append mode 


i ! 

2 % 

. 

slot for message 

! Mand 

! 


I ( 



or index 


! 


1 i 

3% 

_ 

slot containing 

! Mand 

! 


i ! 

1 i 



file name 


! 

! 


(25 (TC] ! 





! 


(Text file close! 

1% 

8 

slot fron index 

! Mand 

! 


i ! 

1 1 



slot in open 


! 

! 


(26 |MR) ! 





i 


(Move Record ! 

1% 

* 

record number 

( Hand 

! 


! moves a rec. ! 





! 


! and returns ! 

2 % 

at 

slot number of 

! Mand 

! 


i slot with new ( 



old record 


! 


! rec number ! 





! 


( ! 

3% 

■ 

slot fqr new 

! Mand 

1 


( ( 



record 'number 


! 


(25 (JUST) l 





! 


1 Justify i 

1 | 

1 % 

“ 

source slot 

! Mand 

1 


! 1 

2 % 

- 

receiving slot 

! Mand 

! 


! ! 

3% 

. 

Length of field 

! Mand 

! insure that length is not 


! ! 





! greater than Data Base 


( t 





! length or item may truncate! 

! 1 

4% 

. 

Left/Right Just 

! Mand 

! 0 = LEFT Justify 


! i 

1 ( 





! -1 ■ RIGHT Justify 


! 1 

5% 

« 

ASCII fill val 

! Mand 

i 0 or null will not work 


! i 





! correctly on justifies 


(28 (DEBUG) ! 





1 


(Debug module ! 





! 


1 call ( 





! 


(29 (SSP) ! 

1 % 

at 

from slot 

( Mand 

1 Must be sequential 


(Slot Screen ! 

2 % 

* 

to slot 

! Mand 

! Error only if too many 


(Printer ! 





! slots for screen 


! ! 

3% 

* 

skip confirm 


! for use with copy features 


( ( 

4% 

■ 

Interactive mode 


! True * interactive slot scr 


( ! 

1 $ 

■ 

screen file name 


! 
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DEC 

PDP-11 Sc 
LSI-11 Users 


Until now, adding a magnetic tape subsystem to Digital 
Equipment's PDP-11 and LSI-11 series computers meant 
costly or custom-built interfaces and integrating 
components from a multiplicity of vendors. It didn't 
always work. 

Now, with IDTs series 1050 magnetic tape and series 3000 
cartridge tape subsystems, adding a cost-effective, high- 
performance data storage and retrieval system to PDP-lls 
and LSI-lls is a simple, uncompromising procedure. 

Innovative Data Technology's tape subsystems are designed 
with compatibility in mind. Our Vi" tape drives use industry- 
standard interfaces and require only one CPU slot for the 
controller card; or, if your card cage is full, IDT will put your 
terminator on the drive, avoiding the cost of an expansion 
chassis. In short IDT offers complete turnkey systems, 
including tape coupler, formatter and drive. 



DEC TM-11 COMPATIBLE 


TAPE SUBSYSTEM 


< 6580.00 


IN 100 LOT 


OEM QUANTITIES 


If you have a PDP-11 or LSI-11, you'll want these features 
from Innovative Data Technology's tape subsystems: 

• Single supplier support 

• DEC standard TM-11 software compatibility 

• Single slot connection or controller card 

• Dual mode 800 cpi (NRZI) and 1600 cpi (PE), at 45 ips; 
9-track Read-After-Write for mag tape. 

• 1600 cpi ANSI/EMCA standard for cartridge tape 

• Six-month warranty on complete system 

• Factory installation and training available 

• Attractive pricing 

For complete details about Innovative Data Technology's 
tape subsystems for DEC computers, call or write for a 
complementary descriptive brochure. 

IDT: where innovation puts you ahead 


INNOVATIVE 

DATA 

TECHNOLOGY 

4060 MORENA BLVD. • SAN DIEGO. CA 92117 
(714) 270-3990 • TWX: 9IO-335-I6IO 
IDT EAST (703) 759-3003 

DEC, PDP-11 and LSI-11 are registered trademarks of 
Digital Equipment Corporation 



CIRCLE 96 ON READER CARD 


130 (HR) 1 

1 % 

. 

file number 

1 Hand 

1 retrieves highest rec num 

1 

(Highest Record l 

2 % 

■ 

storage slot 

1 Hand 

1 for sequential searches 

1 

1 number 1 




1 

1 

1 

131 |WIDTH] 1 

1 % 

« 

width size 

! 

1 width limited to 128 on 

1 

1 DT80/T Width 1 




1 

1 input screens 

1 

i comnand 1 




1 

1 

1 

132 (GRAPHIC)! 




1 

1 Set terminal in graphics 

1 

1 Graphics node 1 




1 

1 mode. Auto shut of after 

1 

1 1 




! 

1 printing screen 

1 

133 | MRT) 1 

1 % 

. 

Switch <> 0 on 

1 

1 True ■ get highest rec num 

1 

1 Use silent MRT! 




1 

i and store in slot 

1 

1 If arg 15% setl 




1 

1 defined in 2% 

1 

1 in SL 1 

2 % 


Storage Slot 

1 

1 

1 

134 ITS| 1 

1 % 

to 15% 

I 

1 Slot number to save 

1 

! Tag Slot I 




! 

1 

1 

1 Saves slots in! 




1 

1 

1 

1 Restarts or 1 




1 

! 

1 

1 chains 1 




1 

1 

1 

135 (CHAIN) 1 

1 % 

. 

Jobstrean to 

1 

1 

1 

1 CHAIN 1 



chain to 

1 

1 

l 

1 1 

1 $ 

■ 

step to start at 

1 

1 printing screen 

1 

136 (TEN) l 

1 % 

- 

existence - 0% 

1 

1 

1 

! VALDER ONLY l 



nonexistence « - 

1 %! 

1 


1 Test for 1 




1 

1 

1 

1 Existence 1 




1 

1 

1 

137 (TYPE) ! 

1 % 

« 

type test 

1 

1 refer to RDF for type 

1 

1 Test type on ! 

2 % 

■ 

Slot with value 

l 

1 

1 

1 slot 1 

2 $ 

■ 

branch dest. 

1 Hand 

1 taken if type true 

1 

1 1 

4$ 

* 

branch dest. 

1 Opt 

1 taken if type false 

1 


SUMMARY DF.SCRIPTIOM: 

COMPLAINT REPORT CREATION AND UPDATE 


! - 
I 
! 

! 

! 

! 

! 
j 
! 

! 

I 
! 

! 

! 

! 

! 
i 

! - 

(0001) 00000000 
(0002) 00000400 
(00031 00000500 
(0004) - 
(0005) - 
(0006) - 
(0007) - 
(0008) - 
(0009) - 
! 

! INQUIRE 
! 

(0010) 00001000 
(0011) 00001010 
(0012) - 
(0013) - 
(0014) - 
(0015) - 
(0016) - 
(0017) 00000600 
(0018) - 
10019) - 
(0020) 00000700 
10021) - 
( 0022 ) - 
! 

! ADD 
! 

(0023) 10000000 
(0U24) 10000002 
(0025) - 
(0026) 10000100 
(0027) - 
(0028) - 
(0029) 10000102 
(0030) - 
(0031) - 


IDENTIFICATION 


PURPOSE : 
STATUS : 
STATUS : 
DATE: 


SALES 

ACTIVE LEXINGTON 
INACTIVE ADAMS 
MAR/81 


AUTHOR : S R ZUF 
NAME : P44STR.STR 
DATE: MAR/81 


, NOP 
,DS 
IS 
,C 

,c 

,c 

,c 

,c 

,GO 


ON 
IS 
,C 
, SL 
,C 
, DM 
, GO 
IF 
,OM 

,CLEAR 
IS 
,C 
, GO 


RA 
.IS 
,C 
SL 
,C 
, DM 
,IS 
,C 
, GO 


I 1 

! 

!SLOT10,,1 
!*,SLOT10 
!*,SLOT10 
!*,SLOT10 
!=,SLOT10 
! B ,SLOT10 
1 


!SCR:COMPLT.TXT ! 
!CHOICE,00000500 ! 


11 , 00001000 ,$ 
12 , 10000000 ,$ 
13,20001000,$ 
•4,30001000,$ 
IE,99999999,$ 
100000500 


1 

1SLOT11,,6 
!«,SLOT11 


!INQUIRE 1 

!COMPLAINT NO or <CR>,00001010 1 

1,00000400,$ ! 

1SLOT100,F9050.1.R944,SLOT11 1 I 

1<>,SLOT100 1,00000600,$ 1 

!SLOT11 !DOES NOT EXIST 1 

! 100001010 1 

1R944,SLOT100,G944 100000600 1 


1 

1 

1SLOT2,,1 
1*,SLOT2 
! 


1SLOT1,R94 4 
1SLOT13,,6 
!*,SL0713 


1 ADD ! 

! 1 

1AGAIN (Y or N),00000700 
!Y,00001000,$ 1 

100000400 1 


1 


1COMPLAINT NUMBER or <CR>,100000021 
1,10005500,$ 1 

1SLOT14,r9050.1.R944,SLOT13,,FR944.S !,T 1 

1=,SLOT14 1,10001000,$ 1 

1SLOT13 1COMPLAINT NO. EXISTS l I 

1SLOT13,,6 1COMPLAINT NUMBER or <CR>,100001021 

1=,SLOTl3 1,10005500,$ ! 

! 110000100 ! 


(0032) 10001000,IF 
(0033) 10001009,MOVE 
(0034) 10001010,C 
(0035) - ,C 

(0036) - ,C 

(0037) - , DM 

(0038) 10001020,IS 
(0039) - ,MOVE 

(0040) - ,GO 

(0041) 10005000,CLEAR 


1R944,SL071,G944 110005500 1 

IF9062.1.P944,SLOTl,,,,SLOT12 1 1 

1«,SLO?l2 11,10005000,$ 1 

1*,SL0712 12,10005000,$ 1 

1*,SLOT12 13,10005000,$ 1 

1 1 ACTION FLAG MUST BE 1/2 or 3 

1SLOT12,,1 1ACTION REQUESTED -,10001020 

1,,SLOT1?,F9062.1.P944,SLOTl 1 1 

1 110001010 1 

1 1 1 


SPECIAL OFFER 

MACHINE READABLE 800 BPI DOS LABEL OF 
MAJOR PROGRAMS IN THIS ISSUE 

Part of the proceeds will be going to the authors. 
Send S S0 to: 

M SYSTEMS. INC. 

Box 361. Fort Washington. PA 19034-0361 
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(0042] 

, GO 

! 

110006000 1 


(0043) 

10005500,HOVE 

!,,,FP944.S, 

rSLOT1 1D 1 


(0044) 

10006000,IS 

!SLOT2,,1 

1AGAIN ( Y or N),10006000 

1 

(0045] 

,c 

1«,SL072 

1Y,10000000,5 1 


(0046] 

, GO 

! 

100000400 ! 


! CHANGE ROUTINE 




(0047) 

20001000 ,ori 

! 

1 CHANGE RECORD 1 


[0048] 

20001010,IS 

!SLOT11,,6 

!COMPLAINT NO or <CP.>,20001010 1 

[0049] 

,c 

1-,SL0711 

1,00000400,5 1 


[0050] 

,SL 

!SLOT100,F9050.1.P944,SLOT11,,FR944.S !, 

, T 1 

[0051] 

,c 

i<>,SL07100 

1,20000600,5 I 


(0052) 

, DM 

!SL0711 

!DOES NOT EXIST 1 


(0053] 

, GO 

! 

120001010 ! 


(0054 j 

20000600,IF 

!R944,SLOTIOO,G944 120001010 1 


(0055] 

,OM 

! 

1 ADD 1 


(0056) 

, MOVE 

1F9065.1.R944,SLOTIOO,,,,SLOT32 ! ! 


[0057] 

,C 

l«,SLOT32 

1,20000650,5 1 


(0058) 

, MOVE 

!,,,FR944 .S, 

t SLOTIOO ID 1 


(0059) 

20000650,CLEAR 

! 

1 1 


(0060) 

20000700,IS 

!SLOT2,,1 

!AGAIN (Y or N),20000700 

1 

(0061] 

,C 

!-,SLOT2 

1Y,20001000,5 1 


(0062] 

, GO 

! 

100000400 ’ 1 


! ROUTING CHANGE 




[0063] 

30001000 ,on 

! 

1 INQUIRE ! 


(0064] 

30001010,IS 

! SLOTH ,, 6 

1COMPLAINT NO or <CR>,30001010 1 

[0065] 

,c 

!«, SLOT11 

1,00000400,5 1 


(0066) 

,SL 

1SLOTIOO,F9050.1.R944,SLOT11,,FR944.S ! , 

-T 1 

[0067] 

,c 

!<>,SLOTIOO 

1,30000600,5 1 


(0068) 

, DM 

! SLOT11 

1 DOES HOT EXIST 1 


[0069] 

#, GO 

1 

130001010 1 


(0070] 

30000600,IF 

1R944,SLOTIOO,G944 130001010 1 


(0071] 

30000650,IS 

1SLOT30,,2 

{ROUTING CODE CHANGE,30000650 1 

[0072] 

,C 

1-,SLOT30 

1,30000650,5 1 


[0073] 

, MOVE 

1 , ,SLOT30,F9057.1.R944 , SLOTIOO 1 1 


(0074) 

30000675,IS 

1SLOT31 , ,6 

1 ROUTING DATE CHANGE,30000675 1 

(0075] 

,C 

!-,SL0731 

1,30000675,5 1 


(0076] 

, MOVE 

1, , SLOT31,F9058.1.R944 , SLOTIOO 1 1 


(0077] 

,on 

1 

1 ADD ! 


[0078] 

, CLEAR 

1 

1 1 


(0079] 

30000700,IS 

1SLOT2 , ,1 

1AGAIH (Y or N),30000700 

I 

(0080) 

,c 

!-,SLOT2 

!Y,30001000,5 1 


(0081) 

, GO 

1 

100000400 1 



DEC 


! 

! 

(00021 99999999,END 


DEC 300 
BAUD PRINTERS 

LA34 AA ^°: m . s .$ 875 

LA34-RA EIA. Receive Only ... 850 

IA38-GA ™ . KP A T ™°:. 1,000 

LA38-HA f p . ! ra . cl ; r . & ?“"?.. 1,100 

LA38-AA EIA. KP. Forms & Tractor . 1,150 

CASH PRICES • IN STOCK 
IMMEDIATE DELIVERY 

— CALL SONJA OR LAURIE AT: 
-(614) 889-0810 

SCHERER’S 

MINI COMPUTER MART 

6145 Dolan Place Dublin, Ohio 43017 


BRAND NEW*WARRANTY*ATD 


CIRCLE 106 ON READER CARD 


LETTERS to the RSTS Pro ... 

. . . continued from page 6 

full length, e.g. SY/S is passed to SSYSTAT and 
SYSTAT/S. Some programs, such as $SWITCH 
and CALLER itself, make no allowance for 
abreviations. 

3. There is no equivalent of the PR IV specifica¬ 
tion in the CCL definition to ensure that the called 
program retains temporary privilege. 

1 enclose a listing of our version of CALLER- 
.BAS, which works successfully on our SYSTIME 
5000 computer, and which I believe overcomes 
these objections. 

1 have not been able in this version to incorpo¬ 
rate calls to TECO.TEC and TYPE.TEC, as the 
“line number” in the CCL definition is not in these 
cases a true line number, but an indication of store 
requirements, and I have been unable to find a way 

nil ll«Tf« m 0*1 tl« •ERlft MS MtaUO AT )• 14 «■ 

Miff Iff 1 MOTfCII* <•>, Qt«T|«l/f A ATtffS *•!»•«?. CVi'IM «1 1A *• 

II 


A* 


is ROMUIIMi 1 WflMf AM 


nasB:.'!U3W 

• m 9 ca coM«i ■ t«r»a m 
<010 I«M •! 5S 5 ra fS 


• (vtisaihRi d 


it. v cn c 


ROiMk '• WMNft mvt 1 — n • 

■no i» hi > tiicQ f i 

u« mtmn • u • nm m*mn ir pit* 

,mmo 


Mt IIII« I' Mt 

>ni i mm w m i»iuhi w noth « iru m m-im-v 

Minin i wm» < «•>. a«n«m 4 non k i»« autm M-iwHr •< u m 


mm mu 3 , jy. 


■> «ni mt 

•tOMU’ Mt 

m 'ii tnm w 

— 3 ni“- 

II NMtMC 

'• natu Mt 


'mm 

"t» SSfuci^Mr 

lltl Hllltl Mt 


Si! 

"!! 



s i 


mu 1 mm m *1 Mt mmt *» ttu m m-w-n 

Minin » MoiiriiM 1 «•> nwimtn 4 rn« u-im-t: rmtnm u-lm-t' •> u m 


Slit? 


1 Ml* «ia rM . V • 

1 mt 4 «k it r«< rrnmm- 1 


of passing file specifications to TECO. Perhaps 
your correspondent, Mr. Fahey could advise me 
through your columns how he has managed to 
achieve this. 

Yours etc., Graham Clarke 
Computer System Manager, Gloverall Ltd 
Thank you, Graham. We’ll trv to publish a reply 
from Stephen Fahey. 

Thank you for a fascinating and very useful pub¬ 
lication. 1 follow the “MACRO MAN” articles 
with special interest as the first exposure to RSTS 1 
had was converting a large typesetting suite (in 
MACRO-11) from RSX to RSTS. As a matter of 
interest, following the article on disk I/O from 
MACRO, the RSX macros for file handling 
FCS (or File Control Services), which handle file 
opens (closes & blocking; deblocking of records 
from MACRO-11 without too much user brain- 
work, are available and appear to work under 
RSTS V7.0; they are all documented in the approp¬ 
riate RSX manual, so I won’t describe them here. 
Here also, a warning, anyone who is planning to 
convert some RSX code to RSTS should be aware 
that the RSX system MACRO library (LB: 
RSXMAC.SML) which is distributed with RSTS 
contains code for all the RSX monitor directives, 
including those which do not work at all under 
RSTS. Your code therefore assembles & TKB’s 
without error, but will not run. I would suggest 
using LBR to remove those directives which don’t 
work from the library so that MAC’s fail. Further, 
if like me. you write all your mainline code in the 
blank PSECT, using the COMMON.MAC prefix 
file without prefixing your code with a .PSECT 
directive, the MAC works o.k., but TKB fails with 


an “Invalid load address in segment NNNNN”, 
where NNNNNN is the PSECT name. I changed 
COMMON.MAC, and also changed it to give list¬ 
ing defaults the same as the RSX MACRO-11 
assembler, don’t worry, this doesn’t affect RSTS 
sysgens. 

Lastly (and best-ly, for us RSX types), the 
SEDMSG output string editor and TPARS com¬ 
mand line passes are both present (in LB:SYSLI- 
B.OLB), as are the SSAVRG register save/restore 
co-routines. All these goodies are documented in 
the RSX System Library Routines manual. 

Keep up the good work! 

Hugh J.E. Davies, B.Sc. 

Hertfordshire, England 
Thanks Hugh, ami keep up your good w ork, also. 

I just finished reading the Dec. 1981 issue and 
was interested in the‘CALLER. BAS’article. Con¬ 
gratulations are due to Steven Fahey for coming up 
with his solution to free up small buffers. 

For a lot of systems, this method would be more 
than suitable. However, systems with a large 
number of CCL’s and a high amount of activity 
may find some disadvantages. 

1. Two programs (CALLER) plus the normally 
executed program are run each time a CALL com¬ 
mand is entered. The running of an extra program 
will create some additional overhead in starting the 
program, disk access and swapping (unless free 
memory is available). 

2. Abbreviated commands (ie. SY-STAT, QU¬ 
EUE) cannot be used unless a separate entry is 
included for each possible abbreviation. This is 
limited only by the maximum size to which the 
program can be expanded. The more entries, the 
more overhead in finding the correct entry sequen¬ 
tially. In the case of QUE, anything but CALL 
QUE will not work. 

3. Any batch jobs or programs containing CCL 
commands will have to be changed. 

For non-privileged users you may or may not 
want the called program to retain its compiled 

. . . continued on page 92 
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T 1IPS& 

ECHNIQUES 

A Column For The Advanced RSTS/E User By Steven L. Edwards, Software Techniques 


TURNING COUSINS INTO RUN-TIME SYSTEMS 

Making RTS’s from BP2 programs. 

A few issues back we discussed the benefits of creating 
multi-user tasks out of some of the CUSP’s. We also men¬ 
tioned that the limiting factor in creating sharable (multi¬ 
user) tasks was that the resident libraries generated had to 
be added to load at specific memory addresses. On systems 
with small amounts of physical memory, this means that 
only 1 or 2 CUSP'S can be made sharable. On systems with 
large amounts of physical memory, this means that you 
have to fragment memory. 

The long term solution is for DEC to allow us to add 
resident libraries without specifying the load address like 
we can with run-time systems. The short term solution is to 
create run-time systems from the MAC files generated by 
the BASIC-PLUS-2 compiler. The short term solution is the 
topic for this column. 

The general flow of the procedure to change a BASIC- 
PLUS-2 program into a run-time system is to: 

• Compile the source program into MACRO. 

• Eliminate all of the funny control characters the 
BASIC-PLUS-2 compiler leaves behind. When the 
compiler generates it's MAC file it comments the 
code for literal strings with the literal string. Thus 
the comment for A$ = SYS(CHR$(6) + CHR$(26)...'is 
“CTRL-F CTRL-Z," which will confuse the MACRO 
assembler, so I use EDT V2 to eliminate all quoted 
strings from the file. (An SPR has been submitted.) 

• Run the program BP2RTS (included in this column) 
which will separate the read-only code from the read- 
write code, and generate an ATPK command file. 
Note that you have to take a guess at the size the 
run-time system will be. The program defaults to a 
guess of 16KW. 

• Execute the command file, which will: 

• Assemble the 2 macro source files generated by 
the program. 

• Link the read-write object module. 

• Link the read-only object module including the 
read-write symbol table. 

• Generate the run-time system from the read-only 
task using MAKSIL. (MAKSIL has a bug in it that 
prevents it from creating run-time systems larger 
than 16 KW. an SPR has been submitted, and a 
patch is included.) 

• ADD the read-only run-time system. 

• Link the read-write object module including the 
read-only symbol table. 

• Name the read-write task to the read-only run¬ 
time system. 

• Delete the files created that are no longer needed. 


• Run the read-write task to make sure everything still 
works. 

• Add the commands needed to add the read-only run¬ 
time system to your start-up command files. 


NOTE 

This procedure creates several files. These files are: 
RO.\ RW.*. R01.CMD, and cuspname.CMD 


Using this procedure we have converted' ATPK. 
SYSTAT. BATRUN. and SPLRUN into sharable run-time 
systems with the following results: 

R/W size R/O (RTS) size 
ATPK 3KW 13KW 

SYSTAT 2KW 17KW 

BATRUN 4KW 20KW 

SPLRUN 4KW 21 KW 

These programs were converted' because of the high 
probability that more than one copy may be running at the 
same time. 

This procedure, while not exactly a clean' procedure 
does accomplish the goal of allowing BASIC-PLUS-2 pro¬ 
grams to share their read-only segments of code. Good luck. 


>FIL PAT:MAKSIL.BAS,LB1:MAKSIL.BAS 

Comparing: 1) PAT:MAKSIL.BAS to 2) LB1:MAKSIL.PAS 


1) PAT:MAKSIL.BAS 

\ LOWCODE%“FNSHFT.RGT%(FNSHFT.RGT%(-(L.BXFR% AND (-2047%)),]%) 4 
AND 32767%,5%) 4 

\ IF (((L.BSA% OP L.BXFR%) AND 1%)-1%) THEN 4 

2) LB1:MAKSIL.BAS 

\ LOWCODE%“((-(L.BXFRI AND (-2047%))/2%) AND 32767»)/32% 4 
\ IF (({L.BSA* OP L.BXFR%) AND !%)“!%) THEN 4 


1) PAT:MAKSIL.BAS 

\ TOP%“FNSHFT.PGT%(LOWCODE% + 31 %,5%)•32% 4 
\ KWORDS%“FNSHFT.PGT%(TOP%,5%) 4 
\ O.SIZE%=32%-( ( (KWORDS%'»3%)/4%) *4%) 4 

2) LB1:MAKSIL.BAS 

\ TOP%-((LOWCODE%*31%)/32%) - 32% 4 
\ KWORDS%-TOP%/32% 4 

\ O.SI2E%“32%-( ( (KWORDS%‘*3%)/4%) *4%) 4 


1) PAT:MAKSIL.BAS 

\ HILOC%“FNSHFT.RGT%(L.BMXV%-L.BSA|,l%)-|BASE%*32%) 4 
\ TOP.BLOCK%“(TOP%/8%) ♦ 1% 4 

2) LB1:MAKSIL.BAS 

\ HILOC%“((L.BMXV%-L.BSA%) /2%)-(BASE%*32%) 4 
\ TOP.BLOCK% *(TOP%/8%) ♦ 1% 4 


1) PAT:MAKSIL.BAS 

AND TOP.BLOCK%♦FNSHFT.RGT%(BASE%,3%)♦1% - TSK.FILE.SIZE% THEN 4 
IF FNW0RD%(HIL0C%-1%) <- 32% 4 


2) LB1:MAKSIL.BAS 

AND TOP.BLOCK%♦(BASE%/0%)♦!% - TSK.FILE.SIZE% THEN 4 
IF FNWORD%(HIL0C%-1%) <- 32% 4 


1) PAT:MAKS IL.BAS 

\ PRINT LIBS; - will load in a‘; FNSHFT.PGT%(PARSIZE%,11%); 4 
•K-word partition using - ; 4 
FNSHFT.RGT%(PARS IZE%,11%)-STACK%/1024%; 4 
"K-words physical memory. - 4 


2) LB 1 :MAKS IL.BAS 

\ PRINT LIBS; - will load in a - ; PARS1ZE%/2048%; 4 
■K-word partition using"; 4 
PARSIZE%/2048%-STACK%/1024%; 4 
"K-words physical memory." 4 

1) PAT:MAKSIL.BAS 
15940 FNEND 4 

15950 DEF* FNSHFT.RGT%(X%,Y%)■ 4 

(X% AND 32767%)/(2%“Y%) OR ((2%*(15%-Y%)) AND <X%'0%)) 4 
! FUNCTION TO SHIFT RIGHT A 16-BIT INTEGER (X%), BY (Y%) BITS. 4 

2) LB1:MAKSIL.BAS 
15990 FNEND 4 

?6 Differences Found. 


. . . continued on page 79 





















Software Techniques announces AT: State-of-the-art 
accounting software for the PDP-11 A system so flexible 
it adapts to the way you do business, not the other 
way around 

AT- has multi-company /multi-division capability, 
comprehensive financial reporting, and complete 
documentation, plus an optional English-language 
report writer. 

„ you’d like to see more, ask us to send you a demo 

We think you’ll agree its an 

Sof t ware 

Techniques^ 

*l: tools for the work of Man 


5242 Katelle Avenue 
Los Alamitos. CA 90720 
United States 
Phone: [714) SS5-Q533 
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Phone: 44 [0)1 
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THE RSTS/E ENVIRONMENT 

By Michael H. Koplitz 


The RSTS/E environment is made up of three parts: ad : 
dressing, the low segment of the task, and the high seg¬ 
ment of the task. Each of these areas will be dealt with in 
this article. 


physical memory address. 

Example: Take virtual address 72322 octal and convert 
it to a physical address. APR 3 is 1460 octal. 

72322 (octal) virtual address gives: 


ADDRESSING 

There are three sets of Active Page Registers (APR) on 
the PDP-11 /70 and 11 /45 (two on other types of PDP-11 s). 
kernel mode APRs. user mode APRs. and supervisor mode 
APRs. The Monitor uses the kernel mode APRs to map itself 
into memory. The user APRs map the user task into mem¬ 
ory. The APR is actually a pair of sixteen-bit registers, the 
page address register (PAR) and the page descriptor register 
(PDR). 

The page address register defines where the page ac¬ 
tually begins in the memory (starting address). The page 
descriptor register defines the maximum length of the page 
and how it can be accessed (read or write, read only, etc.) 

The sixteen-bit address generated when a program is 
compiled is treated as a relocatable (virtual) address. It 
defines which one of the active page registers is to be used 
to calculate a physical address. It also contains the byte off¬ 
set within the page. 

The PAR of the APR is handled as though it contains 
bits six through twenty one (bits six through seventeen for 
PDP-1 Is other than 11/70 and 11/45) of the 22-bit (or 
18-bit) physical address, which is the starting address of the 
page. The PAR is combined with the byte offset within the 
page from the virtual address to get the physical address. 

Virtual Address 


15 13 12 0 


!APR ! byte offset with in page! 


pointer virtual address 
to APR 


Page Address Register 


! starting address of page ! 


Addresses Up To 32KW 

decimal octal binary (slash inserted between 

bits twelve and thirteen) 


0KW 

- 

(4KW-1) 

000000 

- 

017776 

4KW 

- 

(8KW-1) 

020000 

- 

037776 

8KW 

- 

(12KW-1) 

040000 

- 

057776 

12KW 

- 

(16KW-1) 

060000 

- 

077776 

16 KW 

- 

(20KW-1) 

100000 

- 

117776 

20KVJ 

- 

(24KW-1) 

120000 

- 

137776 

24KW 

- 

(28KV/-1) 

140000 

- 

157776 

28KW 

- 

(32KW-1) 

160000 

- 

177776 


000/0000000000000 - 000/1111111111110 
001/0000000000000 - 001/1111111111110 
010/0000000000000 - 010/1111111111110 
011/0000000000000 - 011/1111111111110 
100/0000000000000 100/1111111111110 
101/0000000000000 - 101/1111111111110 
110/0000000000000 - 110/1111111111110 
111/0000000000000 - 111/1111111111110 


Bits thirteen through fifteen determine which APR 
(zero through seven) to use to calculate the physical address. 
Bits zero through twelve are the offset into the page. This 
offset is added to the PAR of the APR to determine the 


APR = 3 
Offset = 12322 


12322 

1460 

160322 octal, the physical address in the memory. 


The byte offset into the page from the virtual address is 
thirteen bytes long. This allows addressing of 4096 words, 
4KW. An APR therefore maps 4KW and there are eight 
APRs so 4KW * 8APR = 32KW program size. 


LOW SEGMENT OF A JOB 

The first one thousand bytes of the user task have 
special meanings to the Monitor. So the 32KW task area is 
shortened by one thousand bytes. The figure below in¬ 
dicates what information is contained in this region of the 
low segment. 


The First 1000 Bytes 


icontolled by job — user job image 
! or run-time system 


!used by the monitor for job con- 
! text information to make job 
! swappable 


!used by the monitor for hardware 
! floating point context infor- 
! mation to make job swappable 


Idefault SP stack area 


Ikeyword (KEY bits 8 - 15) 

! (USRSP bits 0-7) 


Ifile request queue block (FIRQB) 


■transfer request block (XRB) 


Icore common area (CORCMN) 


Icontrolled by job 


■user-assignable PPN (USRPPN) 


!user-assignable default protection 
! code (USRPRT) 


luser logical device name table 
! (USRLOG) 


0 

60 

110 

170 

400 

402 

442 

460 

660 

734 

736 

740 

776 


GENERAL DESCRIPTION 

KEY — (bits eight through fifteen of the keyword) this byte 
defines the job’s status in the RSTS/E environment. 
The keyword is refreshed by the monitor at 
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different points during the timesharing session. The 
defined bits of the KEY are listed below: 

JFLOCK Bit 14 — when one indicates that the job 
does not wish to be swapped. 

JFBIG Bit 13 — when one indicates that the job can 

exceed its private memory max¬ 
imum. 

JFNOPR Bit 12 — when one indicates that the job is 
not logged in yet. 

JFSYS Bit 11 — when one indicates that the job is 

running with temporary privileges. 

JFPRIV Bit 10 — when one indicates that the job has 
permanent privileges. 

JFFPP Bit 9 — when one indicates that the con¬ 

tents of the hardware floating point 
unit should be part of the context of 
this job. 

JFSPR1 Bit 8 — when one indicates that the job is 

running with the special run priority 
at '/2 level higher than normal. 

USRSP — (bits zero through seven of the keyword) is 
assigned a value of 400 (by COMMON.MAC). 
The Monitor automatically loads this value 
into the stack pointer register (R6) when a 
job is created. 

FIRQB — the file request queue block is the main 
communication area between the Monitor 
and the job for Monitor directives that involve 
file or device operations. Below is a diagram 
of the FIRQB area. 


FIRQB 


unused Ireturn status 

! (FIRQB) 


CALFID/.UUO sub !job number * 2 
func. (FOFUN) ! (FOJOB) 


MSB of file sizelchannel number * 2 
(FQFIL) ! (FQERHO) 


project and programmer number 
(FQPPN) 


filename (2 words in Radix-50 format) ! 
(FQHAM1) ! 


file extension (in Radix-50 format) 
(FQEXT) 


least significant bits of file size 
(FQSIZ) 


buffer length (FQBUFL) 


mode (FQMODE) 


status flag (FQFLAG) 


protection code l<> 0, prt. real code ! 
(FQPP.OT) ! ! 


device name (two ASCII characters) 
(FQDEV) 


0 

2 

4 

6 

10 

14 

16 

20 

22 

24 

26 

30 

32 
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VAX & RSTS/E (V. 7) USERS 

OUR RABBIT SYSTEM ALWAYS TELLS 
THE TRUTH ABOUT YOUR COMPUTER 

Like who is using it, when, where, what resources, and how much... 
all in great detail or summarized-your choice. 


RABBIT will give you the most complete set of user accounting 
info you ve ever seen — complete, detailed information for 
each user session It even creates invoices, too. if you wish 



RABBIT will also draw a picture worth a 1000 words about your 
system performance In fact it will draw you lots of pictures 
showing CPU. DIO. PAGE FAULTS (and the like) consumed 
every hour, every day. every week It'll graphically depict your 
average day with or without your biggest users so you can 
better load your system for peak response and throughput 

RABBIT makes life easier for the system user, system 
manager, operating management and the accounting depart¬ 
ment and it never tells a lie. 

RAXCO markets a complete line of operational support, finan- 
cia planning and data management systems for DEC compu¬ 
ting equipment. For a free catalog of these systems contact: 


RflKCD 


INC 


Suite 200 
6520 Powers Ferry Rd. 
Atlanta, GA 30339 
(404) 955-2553 


CIRCLE 110 ON READER CARD 


!<> 0, unit no. "device unit no. ! 

! real ! (FQDEV) ! 

-34 

Icluster size (FQCLUS) ! 

- 36 

! # of entries in directory lookup ! 

! (FQNENT) ! 


XRB — is the main communication area between the 
Monitor and the user for Monitor directives 
handling file or device input/output. Below is a 
figure of the XRB. 


XRB 


Ibuffer size in bytes (XRLEN) 


Ibytes actually transfered 
! (XRBC) 


Ibuffer address (XRLOC) 


!MSB block # Ichannel number 
! (XRBLKM) ! * 2 (XRCI) 


lleast significant bits of 
! the block number (XRBLK) 


"wait time for terminals 
! (XRTIME) 


"device modifier (XRMCD) 


0 

2 

4 

6 

10 

12 

14 


CORCMN — this is core common which is used as a 
common data exchange area when it is 
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necessary to exchange lengthy data 
between the monitor and the job, or 
between programs running under the 
same job number. 

the project-programmer number used when 
an is used in the file string scan, 
the protection code default used in the file 
string scan. 

the user's private logical device name table, 
three to four logical names can be stored 
here. A figure for this area if given below. 

USRLOG 


!logical device name 
! in Radix-50 


!physical name in two ! 
! ASCII characters ! 


ireal unit Sunit number! 
! number ! ! 


HIGH SEGMENT OF A JOB 

The run-time system associated with the job is located 
in the high segment of the job task area. The run-time 
system takes up multiples of 4K words of virtual address 
space, due to APR mapping. The BASIC-PLUS run-time 
system can be generated to take up 13K words of memory 
but when it is used the user area is not increased by 3KW 
due to APR mapping (discussed in more detail later). 

The Monitor uses certain areas of the high segment to 
get information from the job defining what work the 
Monitor is to do for the job. and to pass information to the 
job. The run-time system sets this area with entry points 
and values to define itself to the Monitor. 

Also contained in the high segment of the task is the 
pseudo vector. The pseudo vector is used for the run-time 
system and the Monitor to communicate. In general, the 
pseudo-vector region contains the following: 

1. Values and flags which define the capabilities of the 
run-time system to the Monitor. 

2. Addresses pointing to locations within the run-time 
system where the monitor is to pass control when certain 
conditions occur. 



DEC best VALUES ^ 

PRE-OWNED DEC EQUIPMENT 

BUYING AND SELLING 

SYSTEMS • CPU’s • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 

CALL DICK BAKER (305) 979-2844 

dataware 

L incorporated 

Carico Center 

2845 NW 62nd Street 

Ft. Lauderdale. Florida 33309 

J 


CIRCLE 49 ON READER CARD 


offset 

0 

2 

4 

6 


USRPPN - 
USRPRT - 
USRLOG — 


Format of the 

Pseudo-Vector Region of the High Segment 


Iflaqs describing the run-time system (P.SIZE) ! 

177732 

Inormal executable file extension (P.DEXT) ! 

177734 

((former use i 

now obsolete — reserved word) (P.ISIZ) 1 

177736 

{minimum size 

, in K words, of user job image (P.HSIZ)1 

177740 

ltrap address 
l 

for FIS hardware floating point option 1 
(P.FIS) l 

177742 

(crash entry point (default run-time system only) { 

1 (P.CRAS) 1 

177744 

{start entry 

I 

point (default run-time system only) 1 

(P.STRT) 1 

177746 

lentry point 

for new user (P.NEW) 1 

177750 

{entry point 

for new user with program to run (P.RUN)1 

177752 

ltrap address 

for various "bad" errors (P.BAD) 1 

177754 

{trap address 
1 

for BPT instruction and T-bit traps 1 

(P.BPT) 1 

177756 

{trap address 

for IOT instruction (P.IOT) 1 

177760 

(trap address 

for non-Monitor EMT instructions(P.EMT)1 

177762 

ltrap address 

for all TRAP instructions (P.TRAP) I 

177764 

(trap address 
1 

for FPP or FPU floating point units 1 

(P.FPP) 1 

177766 

ltrap address 

when user types one CTRL-C (P.CC) 1 

177770 

{trap address 

when user types two CTRL-C (P.2CC) 1 

177772 

{maximum size 

(in K words) or user job image (P.SIZE)1 

177774 



177776 



GENERAL DESCRIPTION 

P.FLAG — this word is set with flags which define the 
capabilities of the run-time system to the 
monitor. 

P.DEXT — the default runnable file extension, when a 
.RUN is executed and an extension is not 
given. P.DEXT is used. 

P.MSIZ — minimum size for a user job in K word for 
this run-time system. 

P.SIZE — maximum size that a user job image can be 
for this run-time system. 

P.FIS — trap address for the hardware floating 
point instruction set. 

P.BAD — Monitor passes control on to the run-time 
system at the location specified by P.BAD 
when the following synchronous traps oc¬ 
cur: 

1) Memory management unit exception 

2) Job tries to execute a reserved instruc¬ 
tion 

3) Job issues an instruction with an odd 
address 

P.BPT — contains the trap address for a BPT instruc¬ 
tion and for T-bit traps. 

P.IOT — contains the trap address for an IOT in¬ 
struction. 

P.EMT — contains the location to which control is 
transferred for non-Monitor EMT instruc¬ 
tions. 

P.TRAP — contains location to which control is 
transferred for all TRAP instructions. 

P.FPP — contains trap address for FPP (or FPU) 
hardware floating point units. 

P.CC — contains location to which control passes 
when the user types a tC. 

P.2CC — contains location to which control passes 
when the user types a second t C. 
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P.CRAS — entry points used only by the system 
default run-time system. 

P.NEW — Monitor passes control to this entry point 
under the assumption that “new user" or 
“next request” processing is to be done, as 
opposes to the P.RUN entry point, where it 
is known that a specific program is to be 
run under this run-time system. 

P.RUN — Monitor passes control to this entry point 
when an executable program is to be run 
for a job under control of this run-time 
system. 

AFTERTHOUGHTS 

It is known that RSTS/E has a limitation of 31KW for 
user tasks NOT 32KW as prescribed by the use of APRs. The 
explanation given (by Digital) for this is that there is a prob¬ 
lem with the fifteenth bit of the address being used as a 
sign bit. How can this bit be used as a sign bit if the bits thir¬ 
teen through fifteen are used to determine the APR? If the 
physical address is always created by sending the virtual ad¬ 
dress to memory mangement then the 32KW of memory 
MUST always be addressable since RSTS/E would not be 
concerned with physical addressing. Since the APRs must be 
used in address calculations there must be some other 
reason why the 32KW of memory cannot be accessed. 

The 32KW of memory is used to communicate between 
the Monitor and run-time system. This reserved area may 
prevent the user task from growing into that last kilo-word 
of memory because the Monitor would start to interupt the 
words in the last kilo-word of the task as run-time system 
entry points and status words. This may explain why 
RSTS/E will not allow the user task to grow past 31 KW. 

When using a run-time system, for example BASIC- 
PLUS. a 16KW run-time system, the user task never exceeds 
16KW of memory. The run-time system is mapped by 4 
APRs. The user task would be mapped by 4 APRs. 

16KW BASIC-PLUS Run-time System 

APRO 

APR1 

APR2 

APR3 


APR4 

APR5 

APR6 

APR7 


In this circumstance all 32KW are being used. 


user task area 
16 KW 


other memory 


BASIC-PLUS RTS 
16 KW 


memory 


page 77 


SYSTEM PERFORMANCE 
ANALYSIS FOR VAX 
AND RSTS/E USERS 


II your system is suffering from slow response, clogged I/O. reduced throughput, 
then put RAXCO's RABBIT 2 on your case RABBIT 2 locates the trouble spots in 
your operating system and identifies the source of the problems 

RABBIT-2 will chart your system performance, on an hour by hour, user by user, or 
program by program basis RABBIT 2 will quickly sketch a profile of your average 
system day. your average user demands, and your average program resource 
requirements 

RABBIT-2 provides the tools you need to investigate system throughput in terms of 
CPU. I/O. memory, connect. KCTs. etc — over any time period you specify You 
can play "What if?" by simulating the removal of the offending program or user and 
displaying the results of the change 



RABBIT-2 capabilities include 

• Batch and interactive analysis 

• Interval or time displays 

• Resource consumption diagrams 

• User and program investigation 

• Graphic or numeric output 

• WHO was on WHEN 

• Profile analysis of users and programs 

• Ratios of resources utilized 

• Rankings of users and programs 

• Forecasting of future resource consumption 

RAXCO markets a complete line of operational support 
financial planning and data management systems for DEC 

_ _ computing equipment For a tree catalog o» these systems 

v\ \ contact 


Bmco 


INC 


Suite 200 
6520 Powers Ferry Rd. 
Atlanta, GA 30339 
(404) 955-2553 


CIRCLE 33 ON READER CARD 


With the introduction of disappearing RSX the entire 
job area could be used for the user task. The problem of the 
user task accessing the top 1 KW of the task (whatever it 
may be) becomes important. The 31 KW job size maximum is 
established because RSTS/E cannot go to 32 KW for the 
user task. In conclusion it is discovered that the 32KW task 
image that RSTS/E promises is reduced by 2KW. The first 
one thousand bytes are preassigned by the monitor and the 
last kilo-word RSTS/E cannot access due to some secret in¬ 
ternal problem. The 32KW of the user task cannot be ac¬ 
cessed and Digital has indicated that it is a problem dealing 
with the sign bit. With the information presented here it 
seems incorrect to say that there is a sign bit problem, but 
rather the fixed locations in the high segment of memory 
must be used only by a run-time system and not the user 
task, because these locations have special meanings to the 
monitor. 

Run-time systems must be mapped by the APRs. When 
a run-time system takes up less than a multiple of 4KW, the 
memory to the next multiple of 4KW is lost. In other words, 
if the BASIC-PLUS run-time system is generated with a size 
of 13KW, the 3KW to the next lower boundary (run-time 
systems are loaded from the high segment down to the low 
segment) is lost. 

13KW BASIC-PLUS Run-time System 

APRO- 

! ! 

APR1 ! ! 

! 16KW user task ! 

APR2 ! ! 
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RSTS 

Application 

Software 


Accounting Two: 

General Ledger 
Accounts Receivable 
Accounts Payable 


Flexible reporting structure 

System adapts to you 


Table driven software 

You make changes easily 


Report formatter 

End user creates report 


Modular and integrated 

You enter data only once 


Menu selections 

Easy to use 


On-line support 

Free-up your programming staff 


Proven successful in Canada and USA 

It works now 



IAS 


Computer 

Corporation 

Limited 


Contact: Pat Hunt 


6080 Young Street 
Suite 401 

Halifax, Nova Scotia 
B3K 5L2 

(902) 453-4620 


APR3 


APR4 

APR5 

APR6 

APR7 


! t 

1 ! 

! ! 


! ! 

! ! 

• other memory ! 

! ! 


! unusable 


! beginning of RTS ! 


i ! 

! ! 

1 BASIC-PLUS RTS ! 
! 13KW 1 

! ! 

! ! 


memory 

APR4 contains the starting address of the 4KW segment 
that contains the first KW of this BASIC-PLUS run-time 
system. Therefore it is more efficient to generate a 16KW 
BASIC-PLUS run-time system so that the 3KW of memory is 
not wasted. 

A 17KW BASIC-PLUS run-time system would cut the 
user task down to 12KW. An additional APR would be 
needed to map the run-time system. An APR cannot be used 
to map the run-time system and user task area at the same 
time. 


17KW BASIC-PLUS Run-time System 


APRO 

APR1 

APR2 


APR3 

APR4 

APR5 

APR6 

APR7 


User task 12KW 


other memory 


! unusable 


first 1KW of RTS 


BASIC-PLUS RTS 
17 KW 


memory 

It can be seen from the above figure that a 17KW 
BASIC-PLUS run-time system reduces the overall task size 
down to 29KW, 3KW remember are unusable due to APR 
mapping. In conclusion it should be noted that it is useful to 
generate a run-time system to a 4KW boundary opposed to 
reducing it but not reducing it enough to reduce the use of 
an APR. Sizes of run-time systems must be examined to 
respect to their APR usage opposed to their memory usage. 9 


CIRCLE 112 ON READER CARD 
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TIPS & TECHNIQUES 

.. . continued from page 72 


Title: B P 2 R T S ( 

( 

Description: SPLIT BP2 .WAC INTO RO.MAC, AND RW.MAC fc 

A 

Package: In-House A 

A 

Version: V7.0-01 A 

A 

Edit date: 21-JAN-82 A 

A 

Written by: STEVEN L. EDWARDS A 

Copyright (C) 1982 A 
Software Techniques A 
Los Alanitos, CA 90720 A 

A 

Title to and ownership of the software shall at all tines remain A 
in Software Techniques. A 

A 

The information in this document is subject to change without A 
notice and should not be construed as a commitment by Software A 
Techniques. A 


This software is un-released and 
commitment to support it at this time 
writing. A 


Software Techniques has no A 
unless stated elsewhere in A 


211 

1001 


Modification History A 

A 

Ver/Edit Date 

V7.0-01 21-JAN-82 

A 

General Description A 


Reason (Who) A 
-A 

Initial conception. 


THIS PROGRAM SPLITS THE MAC PILE GENERATED BY THE A 
BASIC-PLUS-2 COMPILER INTO RO.NAC, AND RW.MAC. THESE PILES CAN A 
THEN BE ASSEMBLED. RO.NAC CAN THEN BE MADE INTO A RUN-TIME A 
SYSTEM. A 


Assembly instructions A 


OLD BP2RTS A 
COM/OBJ A 
BUI A 

TKB 8BP2RTS A 


Compile time variables A 


501 .DEFINE .NAMES - ”Bp2rtS a A 

\ .DEFINE .VERSIONS « ’V7.0-01* A 

\ .DEFINE .CHAN.KB% - It A 

\ .DEFINE .CHAN.INt - 2« A 

\ .DEFINE .CHAN.ROt - 3« A 

\ .DEFINE .CHAN.RWt - 3% A 

\ .DEFINE .CHAN.CFt - 3% A 

\ .DEFINE .ASCII.L% - 76« A 

\ .DEFINE .ASCII.N« - 78% A 

1 A 

I Program name. A 

! Program version. A 

! Channel number for terminal I/O. A 

! Channel number for input file. A 

! Channel number for read-only output file, i 

! Channel number for read-write output file. 

! Channel number for command file. A 

1 ASCII value of 'L.' A 

1 ASCII value of 'N.' A 


1 Dimension Declaration A 

I A 

! 901-929 local dimension declarations A 
! 930-949 library dimension declarations A 
1 950-979 MAP statements A 


901 

I 


DIM PAR_PARAMS(7%) A 
A 

Parameters for the TKB PAR directive. A 


(FIRQB) 

1 SYS() 

OFFSETS 

( 

FQJOB.FQFUN% 

1 BYTES 

1(2% 


, FQFIL.FQSIZH% 

1 BYTES 

3 ( 4 ( 


,FQPPN% 

1 BYTES 

5 ( 6 ( 


,FQNAMlk 

1 BYTES 

7 ( 8 ( 


,PQNAM24 

! BYTES 

9 ( 10 ( 

,FQEXT% 

1 BYTES 

11 ( 12 

( 

,FQSIZ% 

1 BYTES 

13 ( 14 

( 

,FQBUFLt 

1 BYTES 

15 ( 16 

( 

,FQMODE% 

1 BYTES 

17 ( 18 

( 

,FQFLAGk 

1 BYTES 

19 ( 20 

( 

,PQPROT* 

! BYTES 

21 ( 22 

( 

,FQDEV% 

1 BYTES 

23 ( 24 

( 

, PQDEVNS 

1 BYTES 

25 ( 26 

( 

,FQCLUSI 

1 BYTES 

27 ( 28 

( 

, FQNENT% 

1 BYTES 

29 ( 30 

( 


Map the Firqb data block. A 


(FIRQB) 

FIRQBS 


FIRQBS - SYS() A 


000 

1010 

I 

1 

1030 

I 


Re-map the Firqb data block. A 


Start of Initialisation A 


ONERROR GOTO 19000 A 

A 

Set standard error trap. A 

PRINT .NAMES ♦ HT ♦ .VERSIONS ♦ HT ♦ ’Software Techniques’ A 
♦ CR ♦ LP ♦ ’Split MAC into RO and RW.’ ♦ CR ♦ LF A 
UNLESS E0% A 

A 

Print standard header on 'RUN’ entry. A 

READ PAR_PARAM$(TENP_0%) A 

FOR TENP_0% - 1% TO 7% A 


RABBIT-3 


JOB ACCOUNTING and 
PERFORMANCE MONITORING for 
RSTS/E VERSION 7 USERS 


RABBIT 3 is a complete performance monitoring and |ob accounting system designed 
especially for PDP II RSTS'E Version 7 users Designed as a stand alone system, 
RABBIT 3 is written entirely m POP macro assembler for maximum operating efficiency 
Fast and smaH. RABBIT 3 runs in 5K core with only a 1% (approximate) system degrade 
ton depending on the sampling rate 

RABBIT 3 is flexible and easy to use It s also easy to install After loading the RABBIT 3 
tape or disk, just answer a few questions to tailor the system to your needs In less than 
an hour of effort, your RABBIT 3 will be generating complete, detailed user information 

RABBIT 3 is cheap The basic system is available for $99/month Furthermore you buy 
only the features you need to get your job done Select from the options listed below 



AVAILABLE OPTIONS FOR 
RABBIT-3 USERS 

\ / 

AUTO-CRASH RECOVERY 

* ' automatic restart from system crashes 

DAILY DISK CATALOG 

generates disk accounting information 
' ti' for each user 

SECURITY TRACER RECORD 

provides step by step security informa 
1 & ’ tion of user activities 

* RflKCQ .a 


Suite 200, 6520 Powers Ferry Road, Atlanta, GA 30339 U.S.A. 
Telephone (404) 955-2553 
Offices in Canada and the United States 


CIRCLE 23 ON READER CARD 


TERMINALS FROM TRANSNET 


PURCHASE PUN • 12-24 MONTH FULL OWNERSHIP PUN • 36 MONTH LUSE PUN 


DEC 


TEXAS 

INSTRUMENTS 


LEAR SIEGLER 


DATAMEDIA 


NEC SPINWRITER 


GENERAL ELECTRIC 


HAZELTINE 


LA36 OECwrtter II 

SI.095 

$105 

S 58 

S 40 

LA34 OECwrtter IV 

995 

95 

53 

36 

LA34 DECwrfter IV Forms Ctrl. .. 

1.095 

105 

58 

40 

LAI 20 OECwrtter III KSR. 

2,295 

220 

122 

83 

LAI20 DECwrfter III R0. 

2,095 

200 

112 

75 

VT100 CRT DECscope 

1.695 

162 

90 

61 

VT101 CRT DECscope 

1,195 

115 

67 

43 

VT125 CRT Graphics 

3,295 

315 

185 

119 

VT131 CRT DECscope 

1,745 

167 

98 

63 

VT132 CRT DECscope 

1.995 

190 

106 

72 

VT18XAC Personal Computer Option 

2.395 

230 

128 

86 

T1745 Portable Terminal. 

1.595 

153 

85 

58 

TI765 Bubble Memory Terminal . 

2,595 

249 

138 

93 

T1 Insight 10 Terminal 

695 

67 

37 

25 

T1785 Portable KSR. 120 CPS. .. 

2.395 

230 

128 

86 

TI787 Portable KSR. 120 CPS 

2,845 

273 

152 

102 

TI810 R0 Printer 

1,695 

162 

90 

61 

TI820 KSR Printer. 

2,195 

211 

117 

80 

ADM3A CRT Terminal 

595 

57 

34 

22 

ADM5 CRT Terminal 

645 

62 

36 

24 

ADM32 CRT Terminal 

1.165 

112 

65 

42 

ADM42 CRT Terminal 

1,995 

190 

106 

72 

EXCEL 12 CRT Terminal. 

1.695 

162 

90 

61 

EXCEL 42 Smart Buttered CRT .. 

995 

96 

54 

36 

C0L0RSCAN 10 Color CRT 

3,195 

307 

171 

116 

925 CRT Terminal. 

850 

82 

46 

31 

950 CRT Terminal . 

1,075 

103 

57 

39 

Letter Quality. 7715 R0 

2,895 

278 

154 

104 

Letter Quality, 7725 KSR. 

3,295 

316 

175 

119 

2030 KSR Printer 30 CPS 

1,195 

115 

67 

43 

2120 KSR Printer 120 CPS 

2,195 

211 

117 

80 

Executive 80/20 . 

1,345 

127 

75 

49 

Executive 80 30 . 

1.695 

162 

90 

61 

MX-80 F T Printer 

745 

71 

42 

27 

MX-100 Printer . 

895 

86 

48 

32 

E0400 4 Channel Stat Mux 

1.525 

147 

82 

55 

E0800 8 Channel Stat Mux 

2.050 

197 

110 

74 


FULL OWNERSHIP AFTER 12 OR 24 MONTHS • 10% PURCHASE OPTION AFTER 36 MONTHS 


MICROCOMPUTERS 

APPLE • COMMODORE • HP85 • DEC LSI 11 


ACCESSORIES AND PERIPHERAL EQUIPMENT 

iCOUSTIC COUPLERS • MODEMS • THERMAL PAPER• RIBBONS • INTERFACE MODULES • FLOPPY DISK UNITS 



'ransNeti 


1 KA / CORPORATION 

1945 ROUTE 22 • UNION. N.J. 07083 • (201) 688-7800 

TWX 710-985-5485 800-526-4965 OUTSIDE N.J. 


CIRCLE 28 ON READER CARD 


Define various variables, a 



































































Sooner or later you will be using electronic 
mail. It just makes good sense. When you do, 
you will want a system that is complete—a 
delivery system, a scheduling system, and an 
information manager. Your electronic mail 
system will become an essential part of your 
office environment. INTECOM is such an 
electronic mail system* 

INTECOM’s power is easy to control. It 
relates to the way you work. Electronic IN, 
OUT, and HOLD baskets are just what you 
would expect. You can scan your IN basket, 
selecting only those message subjects you 
wish to read. Or, you can place a 
message into your HOLD basket for a 
number of days to have it automati¬ 
cally reappear in your IN basket on 
the appointed day. You can even have 
INTECOM recall specific messages 
by providing your own selection 
criteria. Replying, forwarding, and 
sending to groups are as easy as can 
be. And these are just a few of the 
features in store for you. 

You owe yourself a closer look. 
Write for a brochure or give 
us a call direct. 

INTECOM ...the INtelligent 
TExt COMmunicator. 



■(30001 

■000©i 

■oooos 


•INTECOM is currently available on DEC computers using the RSTS operating system 
RSTS is a registered trademark of Digital Equipment Corporation 
INTECOM is a trademark of Logic extension Resources 


North County 
Computer Services, Inc. 

2235 Meyers Ave., 

Escondido, California 92025 
(714) 745-6006, Telex: 182773 


CIRCLE 76 ON READER CARD 
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1110 OPEN •KBsKB.IO* TOR OUTPUT AS PILE I.CHAN.KBt 4 
I 4 

I Open the tern Inal. 4 

20001 4 

I Start of MAIN 4 

I 4 

2010 PRINT I.CBAN.KBI, "Input fila <E«it> "» 4 
\ LINPUT •.CBAN.KB%, INPUT.FILES 4 

\ GOTO 32700 4 

IP LEN(INPUT_PILE$) - 0% 4 

OR EDITS(INPUT.PILEf, -1») - "EXIT" 4 

\ INPUT_PILES - INPUT_PILES ♦ *.NAC" 4 

UNLESS INSTR(1% , INPUT_PILES, 4 

\ PIRQBS - SYS (CHRS (6%) ♦ CBRf(-lOI) ♦ INPUT_PILE$) 4 

\ INPUT_NAIIE$ - RADS (PQNAM1I) ♦ RADS(FQNAN2I) 4 

\ INPUT I.CHAM.KB%, "Generate MAC files <YeS> "> TEMP_0S 4 

\ GOTO 5000 4 

IP (ASCII(TEMP.0S) AND 95«) - .ASCII.Nt 4 

I 4 

1 Get the input file name. 4 

I Pill in the input file name. 4 

1 Extract the file naae. 4 

I Ask the user if they want the aac files. 4 

30001 4 

I DO THE RO PILE. 4 

I 4 


3010 PRINT I.CHAN.KBt, ‘Generating RO.KAC 4 
\ OPEN INPUT.FILES POR INPUT AS PILE #.CHAN.IN% 4 

,ACCESS READ 4 

\ OPEN ■RO.KAC' POR OUTPUT AS FILE S.CHAN.RO* 4 

\ TENP_0% - FNCOPYt(HT ♦ ".RADIX’ ♦ BT * "10", .CHAN.RO%) 4 

\ PRINT I.CHAN.RO%, HT ♦ ".RADIX" ♦ HT ♦ "10" ♦ CR ♦ LP 4 

♦ HT ♦ *.ENABL” ♦ HT ♦ "GBL" ♦ CR ♦ LP 4 

♦ HT ♦ ".PSECT" ♦ HT ♦ "SCODE,RW,I,LCL,REL,CON" ♦ CR ♦ LP 4 

♦ "SCODE:" ♦ CR ♦ LP 4 

♦ HT ♦ ".PSECT" ♦ HT ♦ "SPDATA,RW,D,LCL,REL,CON" ♦ CR ♦ LP 4 

♦ "SPDATA::" ♦ CR ♦ LP 4 

\ TEKP_0» - FNSKIP%(HT ♦ ".PSECT" ♦ HT ♦ "SPDATA", .CHAN.ROI) 4 

\ TEKP_0% - FNCOPYt(HT 4 ".PSECT" ♦ HT ♦ "SSTRNG", .CHAN.ROI) 4 

\ TEHP_0% - PNSKIP%(HT ♦ ".PSECT" ♦ HT ♦ "SCODE", .CHAN.ROI) 4 

\ TEKP_0% - FNSKIP%("20SJ", .CHAN.ROI) 4 

\ PRINT S.CHAN.ROt, "START:i" 4 

\ TEMP_0» - FNCOPYt(HT ♦ ".END" ♦ HT 4 "SCODE", .CHAN.RO%) 4 

\ PRINT S.CHAN.ROt, HT 4 ".END" 4 

\ CLOSE I.CHAN.INt, .CHAN.ROt 4 

1 4 

I Keep the user inforaed. 4 

I Open the input file. 4 

1 Open the ro file. 4 

I Do the ro file. 4 

I Close the input file. 4 

I Close the ro file. 4 

40001 4 

1 DO THE RW PILE. 4 

I 4 


4010 

\ 

\ 

\ 

\ 


\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

I 

1 


I 


PRINT S.CHAN.KBt, "Generating RW.NAC" 4 
OPEN INPUT.PILES POR INPUT AS PILE I.CHAN.INt 4 
.ACCESS READ 4 

OPEN "RW.HAC" POR OUTPUT AS PILE I.CHAN.RWt 4 
TENP.0I - FNCOPYt(HT 4 ".RADIX" 4 HT 4 "10", .CHAN.RWt) 4 
PRINT S.CHAN.RWt, HT 4 ".RADIX" 4 HT 4 "10" 4 CR 4 LP 4 
4 HT 4 ".ENABL" 4 HT 4 "GBL" 4 CR 4 LP 4 

4 HT 4 ".PSECT" 4 HT 4 "SCODE,RW,I,LCL,REL,CON" 4 CR 4 LP 4 

4 "SCODE:" 4 CR 4 LP 4 

4 HT 4 ".PSECT" 4 HT 4 "SIDATA,RW,D,LCL,REL,CON" 4 CR 4 LP 4 
4 "SIDATA::" 4 CR 4 LP 4 

4 HT 4 ".PSECT" 4 HT 4 "SARRAY,RW,D,LCL,REL,CON" 4 CR 4 LP 4 
4 "SARRAY:" 4 CR 4 LP 4 

4 HT 4 ".PSECT" 4 HT 4 "$TDATA,RW,D,LCL,REL,CON" 4 CR 4 LP 4 
4 "STDATA:" 4 CR 4 LP 4 

4 HT 4 ".PSECT" 4 HT 4 •SSTRNG,RW,D,LCL,REL,CON" 4 CR 4 LP 4 
4 "SSTRNG::" 4 

TENP.0I - FNSKIPt(BT 4 ".PSECT" 4 BT 4 •SFLAGR,RW,D,GBL,REL,CON", .CHAN.RWt) 

TEHP_0t - FNCOPYt(HT 4 ".PSECT" 4 HT 4 "SPDATA", .CHAN.RWt) 4 

TENP_0t - FNSKIPt(HT 4 ".PSECT" 4 HT 4 "SSTRNG", .CHAN.RWt) 4 

TEHP_0t - FNCOPYt("10S:" 4 HT 4 ".WORD" 4 HT 4 "20S", .CHAN.RWt) 4 

PRINT I.CHAN.RWt, "10S:" 4 HT 4 ".WORD" 4 HT 4 "START" 4 

TENP.0I - FNCOPYt("20S:", .CHAN.RWt) 4 

PRINT I.CHAN.RWt, HT 4 ".END" 4 HT 4 "SCODE" 4 

CLOSE I.CHAN.INt, .CHAN.RWt 4 


Keep the uaer inforaed. 4 
Open the input file. 4 
Open the rw file. 4 
Do the rw file. 4 
Close the input file. 4 
Close the rw file. 4 


50001 4 

1 GENERATE THE CONTROL PILES. 4 

I 4 


5010 

\ 

\ 

\ 

\ 

\ 

\ 


5020 

\ 


\ 

1 


INPUT I.CHAN.KBt, "Generate coaaand files <Yes> "» TENP.0S 4 
GOTO 5900 4 

IP (ASCII(TEHP_0S) AND 95t) - .ASCII.Nt 4 

INPUT I.CHAN.KBt, "Enter a guess at the site of the RTS <16> "| TENP_0t 4 
TEMP_0t - 16t 4 

UNLESS TENP.Ot 4 

TEKP.lt • (((TENP.Ot 4 31) / 4t) " 4t) 4 
STACKt • (TEKP.lt - TEKP.Ot) • 1024t 4 
TEKP.lt - TEKP.1% / 4t 4 
4 

Ask if they want the command file. 4 

According to KAKSIL, the PAR and STACK paraaeters are defined as 4 
follows for run-time systems of various sizes: 4 
4 

Size Par 4 


IK 

- 4K 




PAR-160000:020000 

4 

5K 

- 8K 




PAR-140000:040000 

4 

9K 

- 12K 




PAR-120000:060000 

4 

13K 

- 16K 




PAR-100000:100000 

4 

17K 

- 20K 




PAR-060000:120000 

4 

21R 

- 24K 




PAR-040000:140000 

4 

25K 

- 28K 




PAR-020000:160000 

4 

Size 





Stack 4 


IK 5K 

9K 13K 

17K 

21K 

25K 

STACK-3072 4 


2K 6K 

10K 14K 

18K 

22K 

26 K 

STACK-2048 4 


3K 7K 

1 IK 15K 

19K 

23K 

27K 

STACK-1024 4 


4K 8K 

12K 16K 

20K 

24K 

28K 

STACK-0000 4 


OPEN 

"RO.CKD" 

POR 

OUTPUT AS 

PILE 1.CHAN.CPI 4 



PRINT I.CHAN.CPt, "RO/-HD,RO,RO-RO,RW.STB,LB:BP2COK/LB/-KA' 
4 "LB:SYSLIB/LB:RSXRTS:RSXIO:RSXAST:RSXSST:RSXDIR" 


4 "/" 4 CR 4 LP 4 

4 "STACK-" 4 NUH1$(STACKt) 4 CR 4 LP 4 
4 "PAR-RO:" 4 PAR_PARAK$(TEKP.lt) 4 CR 4 LP 4 
4 "GBLDEF-O.PLAG:0" ♦ CR UP 4 
4 "EXTSCT-.99998:0" » CR UP 1 
♦ •//* 4 

CLOSE I.CHAN.CPt 4 


1 4 CR 4 LP 4 
4 CR 4 LP 4 


RABBIT-4 FILE SECURITY 
GUNS DOWN DATA RUSTLERS 
ON RSTS/E SYSTEMS 


Do You Know Who The Pesky Varmints 
Reading Your Confidential Information Are? 



RABBIT-4 will help you track’m and catch'm, 
cause it has a proven record of performance. 
RABBIT-4 will let you: 

□ Log secured file accesses 

□ Signal OPSER of violations 

□ Roll-out the bandits 

□ Freeze system activities with 

6 levels of file security to keep your data safe 
and secure, RABBIT-4 will also: 

• Secure up to 64 data files 

• Provide 32 user descriptions plus wild cards 

• Restrict file access to specified programs 

• Identify intrusions and intruders 

• Recover automatically from system crashes 


SEE OUR TALENTED RABBITS AT THE ATLANTA DECUS MEETING 

and pick up a free Rabbit Executive Coloring Book Souvenir! 

We ll have a hospitality suite where we ll demonstrate 
Rabbit s resourcefulness in 

* Performance Analysis * Job Accounting * Resource Accounting 
* Data Management * Financial Planning ' File Security 

FVMjDnc 

RAXCO Inc. Suite 200. 6520 Powers Ferry Road. Atlanta. GA 30339 • (404) 955-2553 


s. 


CIRCLE 21 ON READER CARD 


S 


CAMS 

(Computer Assisted Medical System) 

is now available 
to RSTS/E Users! 



New software package 
handles patient 
information, hilling, all 
insurance processing. 

Easy to learn, 
simple to 
operate! 


• Designed for 

RSTS / E Timesharing 

• Basic Plus 2 

• RMS Files 

• VT100 Full Screen 

NATIONWIDE INSTALLATIONS 
REFERENCES ON REQUEST 

CALL TODAY! 

( 217 ) 529-8700 


SS^ 


155 West Lake Drive 
Springfield, IL 62703 


CIRCLE 113 ON READER CARD 
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I Create the read-only TKB command file, a 

I Include the RSX run-time system modules needed, a 

I Setup the stack, a 

I Setup the partition, a 

I Setup the flag word for a non-kbm run-time system, a 

I Setup a dummy extend section for MAKSIL. a 

5030 OPEN INPUT-NAMES ♦ ".CMD" POR OUTPUT AS PILE «.CHAN.CP« a 

\ PRINT I.CHAN.CP%, "SALLOW NO ERRORS" ♦ CR ♦ LP l 

♦ "MACRO Wt-RW" -t CR 4 LP a 

♦ "MACRO RO-RO" ♦ CR ♦ LP i 

4 "SALLOW WARNING ERRORS* 4 CR 4 LP a 
4 "|" 4 CR 4 LP a 

4 ”| ignore the undefined symbol error message.” 4 CR ♦ LP a 
4 "l" 4 CR 4 LP a 
4 "TKB ,RW,RW-RW" 4 CR 4 LP a 
4 4 CR 4 LP a 

4 "I Ignore the 4 multiply defined symbol error messages.* a 
4 CR 4 LP a 

4 "1 If TKB ends with 'TASK HAS ILLEGAL MEMORY LIMITS,' " a 
4 "you guessed too Bull." 4 CR 4 LP a 
4 "I" 4 CR 4 LP a 
4 "TKB MO" 4 CR 4 LP a 
4 "I" 4 CR 4 LP a 

4 "i if MAKSIL aborts with 'Incorrect file sise,' " a 
4 "you guessed too small." 4 CR 4 lp a 

4 "i if MAKSIL aborts with 'Partition or stack parameter " a 
4 "incorrect for file ai*e,'" 4 CR 4 LP a 
4 "| you guessed too large." 4 CR 4 LP a 
4 "1" 4 CR 4 LP a 

4 "SALLOW WARNING ERRORS" 4 CR 4 LP a 
4 "RUN (1,2)MAKSIL" 4 CR 4 LP a 
4 "RO/RTS" 4 CR 4 LP a 
4 "RO.TSK" 4 CR 4 LP a 
4 "YES" 4 CR 4 LP a 
4 "RO.CMD" 4 CR 4 LP a 
4 "ROl.CND* 4 CR 4 LP a 
4 "I" 4 CR 4 LP a 

4 "| Ignore the 4 multiply defined symbol error messages." a 
4 CR 4 lp a 
4 "i" a 

PRINT I.CHAN.CPI, "SALLOW WARNING ERRORS" 4 CR 4 LP a 
4 "TKB MOl" 4 CR 4 LP a 
4 "RUN (1,2]MAKSIL* 4 CR 4 LP a 
4 "RO/RTS" 4 CR 4 LP a 
4 "RO.TSK" 4 CR 4 LP a 
4 "NO" 4 CR 4 LP a 
4 "YES" 4 CR 4 LP a 
4 "RO.STB" 4 CR 4 LP a 

4 "SYO:(0,1]” 4 INPUT_NAME$ 4 ".RTS" 4 CR 4 LP a 
4 "SALLOW FATAL ERRORS" 4 CR 4 LP a 

4 "UT REMOVE " 4 INPUT_NAME S 4 CR 4 LP a 

4 "UT ADD " 4 INPUT_NAMES 4 CR 4 LP a 

4 "SALLOW WARNING ERRORS" 4 CR 4 LP a 

4 "1" 4 CR 4 LP a 

4 "| ignore the 3 multiply defined symbol error messages." a 
4 CR 4 LP a 
4 'I* 4 CR 4 LP a 

4 "TKB " 4 INPUT_NAMES ♦ "-RW,RO.STB" 4 CR 4 LP a 
4 "SALLOW NO ERRORS" 4 CR 4 LP a 

4 "UT NAME " 4 INPUT_NAME$ 4 "-" 4 INPUT_NAME$ 4 ".TSK" a 
4 CR 4 LP a 

4 "UNSAVE RO.MAC" 4 CR 4 LP a 

4 "UNSAVE RO.OBJ" 4 CR 4 LP a 

4 "UNSAVE RO.TSK" 4 CR 4 LP a 

4 "UNSAVE RO.STB" 4 CR 4 LP a 

4 "UNSAVE RW.MAC" 4 CR 4 LP a 

4 "UNSAVE RW.OBJ" 4 CR 4 LP a 

4 "UNSAVE RW.STB" 4 CR 4 LP a 

4 "UNSAVE RO.CMD" 4 CR 4 LP a 

4 "UNSAVE ROl.CMD" a 
\ CLOSE I.CHAN.CPt a 

l a 

I Create the command file, a 

5900 GOTO 32700 a 

l a 

I End of the command file generator, a 

14100! a 

1 COPY A UNTIL A STATEMENT IS POUND, a 


14110 DEP* PNCOPYt(TENP_0S, TEMP_0%) a 
\ UNTIL TEMP.OS - TEMP_1S a 

\ LINPUT I.CHAN.IN%, TEMP_1S a 

\ PRINT #TEMP_0%, PNGLOBALIZES(TEMP_1S) a 

UNLESS TEMP_0S - TEHP_1$ a 


\ NEXT a 

\ PNEND a 

i a 

I Begin the control loop, a 

I Read a line, a 

I Write the line a 

I unless we are done, a 

I End the control loop, a 

I End of the function, a 

142001 a 

I SKIP STATEMENTS UNTIL A STATEMENT IS POUND, a 

I a 

14210 DEP* PNSKIP%(TEMP_0$, TEMP_0%) a 
\ LINPUT C.CHAN.IN%, TEMP_1| a 

UNTIL TEMP_0S - TEMP_1S a 
\ PRINT »TEMP_0%, PNGLOBALIZES(TEHP.IS) a 

\ PNEND a 

i a 

I Read lines a 

I until we find our match, a 

! Write it to the output file, a 

I End of the function, a 

143001 a 

I GLOBALIZE STATEMENT LABELS, a 

l a 

14310 DEP* PNGLOBALIZES(TEMP_2$) a 

\ GOTO 14320 a 

IP ASCII(TEMP_2$) <> .ASCII.L« a 

\ TEMP_1% - INSTR(1%, TENP_2S, ":") a 

\ TEHP.2S - MID(TEMP_2S, 1%, TEMP_1%) 4 ":" a 

4 HID(TEMP_2S, TEMP_1% 4 1«, 255%) a 

i a 

I Don't fiddle with it if not a line number, a 

! Pind the colon, a 

I Add another colon, a 


14320 PNGLOBALIZES - TEMP.2S a 

\ PNEND a 

I a 

I Return the line to the user, a 

I End of the function, a 

190001 a 

! Error Handler a 

I a 


19011 IP ERR - 11% a 

THEN PRINT #.CHAN.KB%, "?Bad MAC file format, check for " a 
4 "control characters." a 
IP (ERL - 14110% a 

OR ERL - 14210%) a 

\ RESUME 32700 a 

! a 

1 End of file on device, a 


19300 


\ 


IP ERL - 2010% a 

OR ERL - 2030% a 

THEN PRINT «.CHAN.KB%, "Bad filename 

RESUME 2010 a 

a 

In caae the user types in some garbage. 


4 ERTS(ERR) a 


19999 ONERROR GOTO 0 a 

I a 

1 Give up. a 


200001 a 


Data Statementa a 


20010 DATA "160000:020000", "140000:040000", "120000:060000" 
20020 DATA "100000:100000", "060000:120000", "040000:140000" 
20030 DATA "020000:160000" a 


327001 a 

! Completion Routinea a 

I a 


32710 CLOSE «.CHAN.KB%, .CHAN.IN%, .CRAN.RO%, .CHAN.RW%, .CHAN.CPI a 

I a 

I Close all channels (the fast way). a 

32767 END 



data@©GA 

computer corporation 


The DS180 provides a total package of performance features for any 
application where quality impact printing is required Not a ‘hobby-grade 
printer, the DS 180 is a real work-horse designed to handle your most 
demanding printer requirements. 

High Speed Printing - Bidirectional printing at 180 cps offers through¬ 
put of over 200 1pm on average text. A 9-wire printhead generates a 
9x7 font with true lower case descenders and underlining. 

Non-volatile Format Retention-A unique keypad featuring a non-volatile 
memory makes programming the DS 180 quick and easy. Top of form, 
tabs, perforation skipover. communications parameters and many other 
features may be entered and stored from the keypad. The DS 180 even 
remembers the line where you stopped printing-eliminating the need 
to reset the top of form at power-on. 

Communications Versatility - Interfaces include RS232. current loop and 
8-bit parallel. Baud rates from 110-9600 may be selected. A IK buffer 
and X-on. X-off handshaking ensure optimum throughput. 

Forms Handling Flexibility-Forms ranging from 3’-15’' may be fed 
from the front or bottom, and an adjustable printhead provides crisp and 
clear copy on forms with as many as 6-parts. 

For more information on how the DS 180's low-cost total printer package 
can fill your application, contact us at Datasouth The DS 180 is avail¬ 
able for 30-day delivery from our sales/service distributors throughout 
the U.S. 

4216 Stuart Andrew Btvd. • Charlotte. North Carolina 28210 • 704/523-8500 
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SPOKEN HERE! 


There’s only one 
accounting, manufacturing 
software company 
that speaks the language of VAX! 

Interactive Management Systems. 


IMS has been developing business application software for the VAX family of 
computers since its introduction by Digital Equipment Corporation. As a result, 
we know from long experience what you, the VAX-user, need in order to get your 
accounting and manufacturing functions on-line. 

Our truly native mode software is written entirely in VAX-11 Basic, utilizing 
VAX-11RMS. And that makes it compatible with DEC’S Datatrieve query lan¬ 
guage. You’ll also find IMS Software easy to integrate, exceptionally versatile. 

For more information, see our new IMS Software Portfolio, featuring the most 
extensive line of Business Applications Software for VAX and RSTS/E. 

Clip and mail the coupon below.. .or call us today at (617) 489-3550. jgy 


/ 


SmC INTERACTIVE 
111 Id MANAGEMENT SYSTEMS 

The software company that speaks your language! 

While in Atlanta at DECUS, 

come talk with us at DEXPO-82, Booth #816! 

*We also speak RSTS/E 

DEC. VAX, Datatrieve are trademarks of Digital Equipment Corporation. 

CIRCLE 122 ON READER CARD 


/ && 

A / ^ 

^ / x <?v> 
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THE DEC/RSTS 
DECISION SUPPORT 
SOLUTION 

When it comes to comprehensive financial, organizational 
or strategic planning, there is only one choice for the 
RSTS user: 

FCS-EPS 

FCS-EPS is the one system that brings the power of the 
computer directly into the hands of the planning 
professional. 

More than just a modeling system, FCS-EPS is a 
sophisticated, open-ended system easily applied to virtually 
any planning task. Over 60 built-in planning-oriented 
functions allow you to be immediately productive. "What if" 
analysis, goal-seeking, a customized report writer, 
hierarchical consolidation, and a built-in financially oriented 
language make the utility of FCS-EPS virtually unlimited, all 
without the need to know any cryptic computer language. 

The system is also available on the Decsystem 10 and 20, 
VAX and over 40 other hardware/operating system 
combinations. 

700 users of FCS-EPS can't be wrong. Find out more about 
truly user-oriented financial planning systems. Contact EPS 
today. San Jose, CA 800/538-7578 or 408/292-6212; Toronto 
416/279-8711; London (01) 579-6931. 


Clip ami mail to EPS, Inc., 1788 Technology Drive, San lose, CA 95110 
_Yes. Send me information on FCS-EPS 


.Yes. Send me "Selecting and Evaluating 
Financial Modeling Systems." 


Name 

Title 

Company 

Address 

City 

State Zip 

Phone 

Computer now in use 


CIRCLE 103 ON READER CARD 


>BP2 


>MACRO RW-RW 
ERRORS DETECTED: 0 
>MACRO RO-RO 
ERRORS DETECTED: 0 

>1 

I Ignore the undefined symbol error message. 

I 

TKB ,RW,RW-RW 

• TKB — *DIAG*-154 UNDEFINED SYMBOLS SEGMENT RW 


•Task exit status: ERROR 

>1 

I Ignore the 4 multiply defined symbol error messages. 

I If TICB ends with ’TASK HAS ILLEGAL MEMORY LIMITS,' you guessed too small. 
I 

TKB RRO 

• TKB — *DIAG*-MODULE RSXIO MULTIPLY DEFINES SYMBOL . .CRLF 


• TKB — *DIAG*-MODULE RSXIO MULTIPLY DEFINES SYMBOL ..PTXT 

•TKB — *DIAG*-MODULE RSXIO MULTIPLY DEFINES SYMBOL ..RSTT 

•TKB — *DIAG*-MODULE RSXAST MULTIPLY DEFINES SYMBOL ..PMD 


•Task exit status: ERROR 
>! 

I If MAKSIL aborts with 'Incorrect file size,' you guessed too small. 

I If MAKSIL aborts with 'Partition or stack parameter incorrect for file size,' 
I you guessed too large. 

I 

RUN (1,2]MAKSIL 

MAKSIL V7.0-07♦/MU PATCH RSTS V7.0-07 Softec 11/23 

Resident Library name? RO/RTS 

Task-built Run-Time System input file <RO.TSK>? RO.TSK 
The run-time system is not aligned 
Edit mode (Yes/No) <Yes>? YES 

Task-builder command input file <RO.CHD>? RO.CMD 
The task-builder commands have been changed as follows 
PAR-RO:060000:120000 PAR-RO:060000:120000 

STACK-3072 STACK-3072 

EXTSCT-.99998:0 EXTSCT-.99998:003674 

RO will load in a 20 K-word partition using 17 K-words physical memory. 

003674 (octal) bytes may be used for expansion. 

Corrected command file name <RO.CMD>? ROl.CMD 
Please task build again using ROl.CMD 
>1 

I Ignore the 4 multiply defined symbol error messages. 

I 

TKB 8ROl 

•TKB — *DIAG*-MODULE RSXIO MULTIPLY DEFINES SYMBOL ..CRLF 


•TKB — *DIAG*-MODULE RSXIO MULTIPLY DEFINES SYMBOL ..PTXT 


•TKB — *DIAG*-MODULE RSXIO MULTIPLY DEFINES SYMBOL ..RSTT 


•TKB — *DIAG*-MODULE RSXAST MULTIPLY DEFINES SYMBOL ..PMD 


•Task exit atatua: ERROR 
>RUN (1,2)MAKSIL 

MAKSIL V7.0-07+/MU PATCH RSTS V7.0-07 Softec 11/23 

Resident Library name? RO/RTS 

Task-built Run-Time System input file <RO.TSK>? RO.TSK 

•Run-time system maximum job size (28) exceeds calculated maximum of 12 

The run-time system is correctly aligned 

Edit mode (Yes/No) <Yes>? NO 

Include symbol table (Yes/No) <Yea>? YES 

Symbol table input file <RO.STB>? RO.STB 

Run-Time System output file <SY:(0,1)RO.RTS>? SY0:(0,1JSYSTAT.RTS 
RO built in 17 K-words, 669 symbols in the directory 
RO.TSK renamed to RO.TSK<40> 

Utility ADD auppressed 
>UT REMOVE SYSTAT 
?Can't find file or account 
>UT ADD SYSTAT 
>! 

I Ignore the 3 multiply defined symbol error messages. 

I 

TKB SYSTAT-RN,RO.STB 

•TKB — *DIAG*-MODULE RO MULTIPLY DEFINES SYMBOL SIDATA 


•TKB — *DIAG*-MODULE RO MULTIPLY DEFINES SYMBOL SOTSVA 


•TKB — *DIAG*-MODULE RO MULTIPLY DEFINES SYMBOL SSTRNG 


•Task exit status: ERROR 

>UT NAME SYSTAT-SYSTAT.TSK 

>UNSAVE RO.MAC 

>UNSAVE RO.OBJ 

>UNSAVE RO.TSK 

>UNSAVE RO.STB 

>UNSAVE RW.MAC 

>UNSAVE RW.OBJ 

>UNSAVE RW.STB 

>UNSAVE RO.CMD 

>UNSAVE ROl.CMD 


PDP-11 BASIC-PLUS-2 VI.6 BL- 01.60 


>RUN SYSTAT 


Basic2 


SYSTAT V7.0-07 RSTS V7.0-07 Softec 11/23 
Output Status to? /S 


OLD LB1:SYSTAT.BAS 


RSTS V7.0-07 Softec 11/23 status at 04-Mar-B2, 07:02 PM Up: 5:25:58 


Basic2 

COM /MAC 
Basic2 

EXIT 

>1 

>1 At this point you must edit the MAC file to 

>1 eliminate the control characters from the 

>1 comments in the file. 

>1 

>RUN BP2RTS 

Bp2rts V7.0-01 Software Techniques 
Split MAC into RO and RW. 

Input file <Exit> SYSTAT.MAC 

Generate MAC files <Yes> YES 

Generating RO.MAC 

Generating RW.MAC 

Generate command files <Yes> YES 

Enter a guess at the sixe of the RTS <16> 17 

># SYSTAT 


Job 

Who 

Where 

What 

Size 

State 

Run-Time 

Pri/RB 

RTS 

1 

(OPR] 

Det 

ERRCPY 

10/31K 

SR C12 

7.5 

0/6 

...RSX 

2 

(OPR) 

Det 

OPSRUN 

21/31K 

SL C14 

24.7 

-16/6 

...RSX 

3 

(OPR) 

Det 

0UHRUN 

24/31K 

SL C08 

20.5 

-16/6 

...RSX 

4 

(OPR) 

Det 

SPLRUN 

4/31K 

SL C01 

0.1 

-16/6 

SPLRUN 

5 

(OPR) 

Det 

BATRUN 

4/31K 

SL Cl 3 

0.2 

-16/6 

BATRUN 

7 

(SELF) 

KB9 

ATPK 

3/31K 

SL 

1:48.8 

-8/6 

ATPK 

8 

(SELF) 

P0J7 

SYSTAT 

2/31K 

RN Lck 

7.1 

-8/6 

SYSTAT 

9 

(SELF] 

P1J5 

SLEEPR 

2/31K 

SL 

0.1 

-16/6 

...USX 


LOOK at the "tear-out” cards in this issue. 

There’s subscription cards for you or a friend. 

There’s a FREE gift for you. Bring in new subscribers and 
collect rewards. See "BOUNTY HUNTERS" card. 

There’s a READERS INQUIRY card for your convenience. 
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EXTRACT 

By Stephen Munyan. 135 Brattle St.. Holden. MA 01520 

EXTRACT is a program which was designed to 
allow programmers to copy lines of one program into 
another quickly without having to worry about going 
through BASIC-Plus immediate mode statements to 
extract the lines. This program has been in use on our 
system for over 1 year, and is quite widely used. 

As an example of how this program can be used, 
we will assume that the programmer has written a 
program which contains several routines which need 
to be used in a new program under development. For 
convince we will call them ROUTINE.BAS and 
APPLIC.BAS. In this case we want to copy lines 10.50. 
700-750. and line 1000 from ROUTINE.BAS and place 
them into a new file called APPLIC.BAS. To accomplish 
this we would issue the following procedure: 

RUN $EXTRACT 

EXTRACT — Program Line Extraction Program — V7.0-01 

Output = input [/A[ppend]] 

• APPLIC.BAS = ROUTINE.BAS 

Enter the line numbers to be extracted from the 
input file separated by commas. A dash may appear 
between entries to allow ranges of lines to be ex¬ 
tracted. Once all lines to be extracted have been 
entered press CTRL/Z 

• 10.50 

• 700-750 

• 1000 

• z 

Extraction Complete 

In the example above, several line number com¬ 
binations were entered on the same line. As many en¬ 
tries as desired can be entered on the same line as 
long as they are separated by commas. For example, 
if we wanted to enter all of the lines on the same line 
we could have entered: 10. 50. 700-750. 1000 all on 
the same line. 

If the lines being extracted are to be placed at 
the end of an existing program, the /APPEND switch 
can be used. If this switch is used, the program is 
assumed to be lacking an END statement since when 
the output file is OLD’ed. it will ignore any 
statements that were appended to the file after the 
END statement. 

As an optional patch, line 1015 can be updated to 
use the RECORDSIZE option to allow BASIC-Plus to use 
larger recordsizes on the input file. This will speed the 
extraction since the program will spend less time 
waiting for I/O to be processed. Depending on the 
amount of space allocated to each user, the size of the 
Record can vary from 4096 to 16384 bytes. 


I lllll IRMCT «llll« 7.* Edit 1* 

Written by Stephan J. nunyen (Cl 1001 

nil software is solely for non-coMer c la 1 uee ana My be only a 
used and/or copied with the Inclusion of this notice. I 
No title to or ownership of this software la hereby transferee. 

The InforMtlon in this software la subject to chan ye witnuut a 
notice and should not be construed as a coewltnent by a 
the author. a 

l «TRACT — Prograa to attract line nuabere ftoe a OAOIC a 
prograa given the upper and loser bounds a 

11 ■ 11 ■ 1111111111111 ■ 111111111111 ■ i ■ i ■ ■ 11 ■ 11 ■ ■ 1111 ■ 1111111 ■ i ■ ■ 111 a 


1UM PRINT \ 

nun ’team 
MINT \ 

core idle 

2000 VALID.LINOS 


1O00 DIN LIRSI244S, 1SI. NUN.CNSSISSI 


LINS I244S, IS) 


r - Prograa Line Catracttan Preplan 


OPOO *CBi* AS PIU 10S \ 

PAX NT ‘Output - Input l/AIPf 
PRINT \ 



11ns loosing for eyntaa a 


INPUT. fILSS-1 
OUTPUT. PILES-2S \ 

ores INPUT. PI LI I PON INPUT AS PIU INPUT.PIUS. NODS Hire 


I Open the output file In t 
I we will either ctNte a n 
I salating file 


PRINT \ 

PRINT ‘enter the Una nu 
PRINT ‘separated by com 
PRINT ‘allow ranges of 1 
PRINT ‘to be extracted h 
PRINT 


era to be eatracted froe tna Input f 
A dash My appear between entries 
•a to ba aatractad. Once all linM* 
• been entered press CTRL/1* \ 


I GIVI TNI NSLP ROSSACI 


INPUT LINS UOS. Ill pons r I \ 
RSSPOMSI-CVTtt(RRSPOWRSI. 101SI \ 
MILS LOW I RSSPONSS1) \ 

COMMAS-I NETS (IS * RMPOMCSi. *.* 
COMMAS wLflM RRRPONRSS > *1S 


IP DAMS-OS 


I Scan the cooMno line loosing for either a U 
I nunbar or a dash to Indicate which type of 
i Is being proceaMd. lei a or a-y 

i Notei a la converted Into i-a 

_ _> 12T0TS) OR (LONS ) R1GRS) 

Turn ioso 

tut LIN. PTRSwLlN. PTRSelS \ 

IP LIN.PTRS > 244S 

TRIM print ‘POnly 111 entries can be epi 
•— Retraction will now pro< 

PRINT \ 

PRINT ‘The following ontrles will not 

PRINT \******** 

PRINT NORSIe* , ‘eRRSPOMStS \ 

PRINT \ 

PRINT *Re-run the progran witn /APPSN 


■ Try to find a place 1 


L low-high values 


I tnd of the sea 

PRINT \ 

PRINT *mo following entry le 


nnlng loo 
invalid ' 


0 eyntaa error — I 


it-wir, 

I output ftlo. 

2U10 CRANGt LEPTICVTff (TRITS. 10ISI 


I cot a line of teat Iron the file. If we are currently a 
I in a continuation line, then this teat should be eent S 
I to the output processor. If t ' ~-* 


2010 GOTO 2 


UNLUS NUMERS 

l Ignore Diant 1 
I of out scan 


a that are not within the range a 


2020 001© 2024 

IP (NUMERS >• LINS IIS, OSD AND I 
POR IS-1S TO LIN.PTRS \ 

VALID.LINES-OS \ 

GOTO 2040 


• LINSUS. IS)) I 


t Chech to Me It the line that we are loosing at a 
l la within a valid range. If the nunber la not a 
1 in that range nt VALID.LINES to aero so that a 
1 the line will not print, then get the neat 1 >m. a 


VALID. LINES—IS 


2040 PRINT POUTTUT.riUS. TESTSi 
IP VALID.LINES V 
CONTINUATIONS-OS 


IP N1DITESTI, LEN (TESTS) -2S , IS I-CNRS (10S I‘CNRS (1 IS I‘CNRl (OS I 
OR NIDITEETS, LEN(TESTS)-IS, 2S)-CNRS(10S)»CRRS(1 IS) 

TREN CONTINUATIONS —IS \ 


I Print the Dm If It Is valid. If the 
i la invalid, ship the print but chocs t 
I 11 m le a conttnauation. 


I Possible continent Ion 

I LP CR NULL 

I LP CR 

I a CR LP 


TEMP I-CVTf S I TESTS, 2SI \ 

IP RICRT1TEMPS. LEN (TEMPS)-2SI • 
TREN CONTINUATIONS —IS \ 
GOTO 2004 


(‘♦CHASIDS) -CNRS UOS) 


I Tata cars of tha special case of eatend node 
I cont ins nation which My have the following f 
I 

I PCM LINE IWTE 1) S CR LP 

I 

I Note li 

I There My be any Nunber of speces ana tabs 


I If we rMCh this point then there la no cont 
I 11ns so claar tha flag ao that tha first rou 
I will start scanning for a now line to procea 


EUC IP ERL-1044S 


l Tata care of *S to Dm entry and alM n 
I translation arrors that occur when we ar 
I the uitr'a input Into MchiM readable f 


10004 IP ERR-llt AND ERL-2004S 
TREN PRINT \ 

PRINT ‘Eatractlon Couplets* \ 
RESCUE 22707 


10010 IP ERL-1014S 

TREN PRINT *?UMble to access 
RSSUI* 1010 


0 of file condlt 
•♦INPUT.PILE!**' 


1U014 IP EAL-1020S 

TREN PRINT *7UMble to access '‘♦OUTPUT.PIUS** 

RESUME 1010 


y unexpected alter that My o 



SYSTEM DEVELOPMENT TOOL FOR RSTS/E BASIC -PLUS 

• Automated Definition of Record Layouts 
• ISAM, Sequential, Random, and Tape Files 
• Version 7 RSTS/E Large File support 
• Program generated, RNO compatible Document Facility 
• Supports numerous Data Types 
• DMS 500/FAM Compatible 


Casher Associates Inc. 

1371 Beacon Street • Brookline. MA 02146 


(617)232-9111 
(212) 757-2868 
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HAPPY DISKS 
MAKE HAPPY 
SYSTEM 
MANAGERS 



DSKBLD is an extremely fast 

RSTS/E disk-to-disk utility 

which: 

• Supports mixed disk types. 

• Untangles directory links. 

• Creates contiguous UFD’s to 
proper size. 

• Creates accounts in 
sorted order. 

• Locates files adjacent to 
user’s UFD. 

• Optimizes clustersizes. 

• Saves accounting data. 

• Is easy to use and 
fully documented. 

• Provides logging and statistics. 

LAST CHANCE TO BUY 
DSKBLD AT THE $500 
INTRODUCTORY PRICE 


I-1 

■ □ Send me more ■ 

information on DSKBLD 

I Name_ I 

I Company _ I 

_ Address _ . 


^Telephone 


J 


Here’s What DSKBLD 
Users Say: 


“We have about 130 terminals in the field. The day after I used 
DSKBLD they called to find out what I had done to fix the response 
problems!.. .1 used to have a lot of “crazy” weekend hours—now its 
a simple production job I can trust to my operators” 

—New York user 

“I would recommend it to anyone with a disk bound system. DSKBLD 
lets me rebuild a 300 MB disk in an hour and improves system 
throughput.” 

—Oklahoma user 

“Our users noticed the results after the first use...FIP needed 
dropped from over 50% to under 20% immediately...After seeing 
the results, we would pay twice the price for it.” 

—Minnesota user 

“Cache hits went from 45% to 81%...Overall throughput increased 
almost 100%.. .cut $ 15/hour overtime by 75%.. .have recommended 
it to others.” 

—Massachusetts user 


“Can rebuild all my disks in one 
Sunday instead of spending three 
Sundays each month... definitely 
met my objectives... am ordering 
a license for my other CPU.” 

—Washington user 

“I like the safeguards built into 
DSKBLD—especially for the un¬ 
sophisticated user... very easy to 
install.” 

—Colorado user 

‘Tve already recommended it to 
two other users.” 

— Colorado user 


T 

i 

\ 

T 

— 

1 1 

_L 

\ 

1 



SERVICES CORPORATION 


AUTHORIZED 



COMPUTER DISTRIBUTOR 


1700 Westlake Avenue North 
Seattle, Washington 98109 
(206) 285-3260 
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RPGED.TEC 


10 WAYS TO PRINT NOW, 
PAY LATER. 

Call 800-243-9054* for details. 

1. CHARGE-A-PRINTER. We’ll install the line printer you need today, and 
defer payment until next quarter 

2. MORE LPM FOR LESS $. The Printer Store sells the identical printers 
that mini vendors offer, at up to 50% less. 

3. UPGRADE YOUR SYSTEM, NOT YOUR BUDGET. Double your system 
throughput now with a new. high-speed line printer or RLPS. 

4. ORDER NOW, GET 3 MONTHS FREE MAINTENANCE. Save on the cost 
of ownership for a limited time only. 

5. CONVERT-A-LEASE. Lease the line printer you need today, with the 
option to purchase anytime 

6. GUARANTEED TRADE-IN. Trade in your old line printer for an additional 
10-20% off our already low prices. 

7. TWO LINE PRINTERS FOR THE PRICE OF ONE. Our pxs Switch lets 

you use your old printer as a back-up (free for a limited time only when 
you purchase a new printer). 

8. SHORT-TERM RENTALS FOR HIGH-SPEED LINE PRINTERS. The most 

economical way to get increased throughput for peak periods. 

9. WE LL REFURBISH YOUR LINE PRINTER, and provide a loaner 
while it’s in for repairs,or sell you a refurbished line printer at 20-30% of 
the cost of new 


10. LET MA BELL PAY FOR YOUR REMOTE LINE PRINTER. Our Remote 
Line Printer System pays for itself in line use savings. 
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By Austin Kinsella, Regional 
Technical College, Carlow. Ireland 

The Regional Technical College in 
Carlow is one of a number of similar 
3rd level institutions in Ireland, pro¬ 
viding mainly 2 and 3 years courses in 
technical subjects. The College has a 
PDP 11 /34 RSTS/E system, on which 
the bulk of the time is consumed by 
students on our 2 year data processing 
course. During their second year, these 
students spend some time learning 
RPG. As we cannot afford the overhead 
of multiple copies of RPGESP. and as 
the students are already familiar with 
TECO for editing Cobol and Basic-Plus 
sources, it was decided to provide them 
with a simple RPG forms editor in 
TECO. The listing of this editor is at¬ 
tached. After squeezing, it adds less 
than 1K to each user’s buffer, so that 
multiple copies can be run without 
causing swapping. 

When running, the editor displays 
a row of column numbers and the cur¬ 
rent form mask, with legal fields de¬ 
noted by t or *. (or C for command) 
and unused columns by spaces. Cursor 
movement will not leave the cursor in 
an illegal column. Facilities are pro¬ 
vided for left and right cursor move¬ 
ment. up and down lines, line renum¬ 
bering. and new line creation with 
automatic line numbering. To minimize 
screen updating, only 6 text lines over 
the mask are displayed. The editor is 
loaded by EIRPGED, and is run by MR. 
Exit back to TECO is by IZ. and MR can 
be re-issued after any intervening 
TECO commands, for example a search 
to move to a new position in the file. 
We have the editor installed with pro¬ 
tection <104> in one of our library 
accounts, but it can go anywhere. 

RPGED is not foolproof, and there 
remains considerable scope for devel¬ 
opment. The primary design goal was 
to provide easy RPG forms editing with 
a low memory overhead, and we feel 
this has been achieved. Because most 
of our terminals are VT52s, only VT52 
escape sequences are used in the 
editor, but on a VT100 the editor 
should run faster in ANSI mode by 
scrolling the text window up and down 
over a fixed mask. Other changes that 


might be desirable would be to make 
RPGED executable by CCL, to accept 
numeric arguments on the movement 
commands, and to retain a column po¬ 
sition on macro entry or line change. 
We have a second version of the editor 
called SRTED which has the same func¬ 
tions but displays Sort rather than RPG 
form types. 

In conclusion I should point out 
that I have been aware of the need for 
this editor for over a year, but it took 
the arrival of the back issues of RSTS 
PRO. with the articles on TECO. to spur 
me to write it. 


Summary of RPGED commands: 


IB: 

Back cursor to last legal 
column, or start of previ¬ 
ous line if at start. 

tU: 

Up to start of previous 
line, change mask if 
necessary. 

ID: 

Down to start of next line, 
change mask if necessary. 

<sp>: 

Cursor Right to next legal 
column or next line if at 
end. 

<cr>: 

Make new line of 74 cols, 
insert mask type, insert 
number if numbering. 
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Hardware Protection 
For DEC Equipment Users 


C*XX Overtemperature Protection System 

Standard DEC PDP 11, VAX, and System 10-20 ma¬ 
chines are NOT adequately protected from equipment 
damage due to high machine room temperatures. 

This unit provides aural warning signal and total system 
power shutdown with two customer adjustable tem¬ 
perature limits and approved interface to standard 
DEC AC power control system. 




Nassau Systems 

PO. Box 19329 
Cincinnati, Ohio 45219 
(513) 231-1283 


DEC, VAX, and PDP are trademarks of Digital Equipment Corp. 


CIRCLE 27 ON READER CARD 



System not putting out what it should .. ? 


RSTS PERFORMANCE SPECIALISTS 
Budget-Minded Consulting 


ASSOCIATED SYSTEMS TECHYI^EES. IYC. 

10528 Lower Azusa Knud 
Suiic 105 

El Monte. California 01781 


CIRCLE 124 ON READER CARD 


Whether It's systems or software the answer Is In the Technique 


t F < arg >: change to mask type arg. 
t A: Toggle off/on auto-line numbering, 

t R: Force line renumbering (if auto-numbering, out- 

of-sequence inserts cause renumbering after 
IZ). 

IJ: Jump to start next field, 

t H: Half jump to col 44 if I form or col 32 if 0 form. 

IZ: Return to TECO. 

< del >: Replace current cursor character with space. 

< other >: Replace current cursor character with character 

typed. 


' RF'GCD.TEC • 

' TLCO-bosed editor for RPG fore* 
' Afc RTC Cor low Jon B? • 


• Root«tor* Used (rontrriti clobbered' ' 

• A* Auto Into nueber eocro 1 
' At Auto line nueber floe 1 

• Ct C Fore Ao*k • 


' Et E Fore desk 

• Ft F Fore Aosk 1 

• M» H Fore Aosk • 
t It I Fore Aosk 1 

• Jt Li«t of ee»r twee* • 

• It L Fore Aosk ' 

' At Current Bosk 1 
1 At Renueberin* eocro 1 
' NX Renueberin* needed floe ' 

' Ot 0 Fore Aosk ' 

• Rt Aoin eocro 1 

• St Scrotch ' 

• SX Scrotch • 

i TX Teremol inrut ' 

' Ut Urdote »cr*er. eocro ' 

I'UR’ * Lood kwwboord Aonitor 1 


* Initialloot ton • 

133“T 72“T 153'T 70“T 

153“T B9”T 5»“T 32“T 

7*. B-AX12J43A7BVOX > B“AXI234X 

1UA OL 

O.BET AU 

“0*G 3AUT AD ' 


Hoee * Vlear • 

Line 20 col 1 > 

Disrlow col no* 1 
Set ALN float «tort of line ■ 
Set no echo • urdote *creen 1 
If in o liner do Bask disrlow 


1 Aoin inrut chor I rrocet* loor 1 


< 

“TUT 

OT-32*G D 

OT-127*N BOTIXX OT“T 
I BIX X 32“T * 
-<0"O)OA-32*E 32UT 

i 0“0t73*L 4UT 

I F< *** 


• LBO * 

QT-32*E < 

C 153“T A7“T 
-<0“0>0A-32’N 01 • 

> 

0“0473*L 4UT BO'LBO' * F< * 
0T-1*E OA’E 1UA : OUA • F' ' 

0T-A*E “TUT BOTIXX R 

1IBSX~EOJX*S -D AD : D 7“T' F ' 
0T-13*E “T“t 

L 37 BIX X> B13IXXB10IXX 
-L 0A*G AA ! SC ' 

D BSOAIXX R 
OA'E OL' 

AU F< ' 

OT-2A*E OF ‘ 

OT-IO’E • 

C 155*T A7“T 

-< 0“0)OA-< <-<0“Q > l»OA)*Cf 
-< 0“0>0A -32*N 01 • 

0“0F73*L 4UT BO 1 LBO 1 ' F 

OT-2*E 

135“T 6B“T R 
- •0“0 >OA-32*N 0»' 

OA-IO'E 21UT BO 1 L BO * ' F 
OT-l1*£ OL k AU F 
0T-4*E L 

Z-.*E -L 

! 5A- <30A > *N SAUT AD ' ' 

AU F 

QT-21*E -L AU 3A-<50A)*N SAUT AZ ' F 
OT-18*E AA AU F . 

0T-B*E 

50A-73*E 0“0F43< C 155“T *7“T 
S0A-7VE 0“0F31 C 135“T 67“T ' 

F< ' 

3<7-T> F < 


I Tldw ur before wxitin* to TECO 1 

0A*G 133“T 89"T 54“T 32“T 

B' AXRenueher ml. . .X AA * 

BtOET 133“T 72“T 1SS“T 74“T 
9 

B“UA» ' Lood Auto-Line-Aueber Aocro • 
-L \410 US 

2L “0*G \-0S*0 F* I 1UA " 

-L SD OSS 0“0 US OL SFOS'BIXOX- 
OL SC 

B-UD 1 * 1 Load diarlow eo*k eocro • 

.US B“USXGX 
BOT1“USXX 
AS 

135“T 89“T 50“T 32“T 
OSt.T OSt.XA OSt.D 
133“T B9“T 49-T 32-<0“Q>“T 

B“UU4 • Lood urdote *creen eocro ' 

%/76 US 
0S-S*G 3US ' 

133“T B9“T 44"T 32“T 

5-OS'G 3-OS'153“T 75“T 133“T 4*“T' 

-3TT 

155“T B»“T 49“T 32-<0“0 “T 

T 

B“UA» ' Lood renueber eocro ' 

J 10US 

< 

SD OSS 0S410US 
0-QUR OL S4OR.BIX0X 
L .-ZI 

> 

OUA -L 


> Rear retgrnini here till “Z • 

• Get chor and save it ' 

I If not control delete chor 1 

' If not delete insert end echo 1 
' Else insert sroce and echo ' 

' If cursor on eosF sroce• do SP ) 

• Else ot EOL do “D ' 

' Else flowbocF for eore • 

• We foil into LBO if SP or “D ' 

( We juer here with sieuloted inrut • 

( SF>: loor start ' 

' Advance cursor ' 

• Exit loor if coluen leeol • 

• Else loor aeein • 

• If ot EOL do “U else flowbocR • 

• “A: set/reset ALA flo* ' 

• “FS set oriusenti rut in buffer' 

• If valid do eosk else buzz • 

' CRI eat LF • 

' Aake new line ' 

• Into liner do ALA if on else cursor to col 6 ' 

• Insert fore twre ' 

' If not ALAt bock to line no field • 

' Urdotei loor ' 

• “Z! juer out of earn loor ' 

• “J! loor start ' 

' Advance cursor 1 

• If 2 eask chars saee trw oaein ' 

' Else exit loor if not sroce ' 

• End loor • 

' Do “D if EOL else flowbock • 

• “BS start loor • 

■ Dork cursor I 
' If not srocti exit loor I 


• If ot EOL do “U els* flowbock ' 

• “AT kill liner urdote • 

• “DS down line • 

• If no line, bock ur • 

' Els* do eask if wrone ' 

' Urdote screenr flowbock ' 

• ~u: ur liner urdoter chans* eask if needed ' 

• “R! do renueber me ' 

• “MI hoif juer ' 

• If twre I advance to col 44 (won't if alreadw > ) I 
I If twre 0 advance to 32 * 
i Flowbock • 

1 Anythin* wiser buzz ' 

• End earn loor • 


' If renuaberin* needed ' 

' Saw so and do it' • 

' Reset ET floss clear screen 1 


• Look ot lost line nueberr odd 10 • 

1 Set renueber flos if insert too hish ' 

1 Into liner delete srocesr insert nor left rod 0 ' 
1 Position after line nueber ' 


' Reeeeber rlocer build coeeond in SS ' 
' Arrend fore twre wanted ' 

' Do coeeond-rut eask in buffer 1 

• Lin 19 col 1 • 

• Twre eoskreave itrdwlet* it • 

' Rerosition cursor • 


' Ao of rrevious lines in SX 1 
' If eore then Sr sow 5 ' 

' Set cursor so twreout end* ot eosk ' 
1 Clear surrlus lines ' 

1 Do twre out ' 

' Put cursor after . ' 


' Start of filer set first nueber ' 

' Stort of loor ' 

' Del nueberr insert new oner increeent ' 
' Insert leodlns 0 os needed 1 
' Next liner juer out ot eof • 

• End loor I 

' Clear renue needed flos ' 


Load for* twre* 


of valid fore twre* 


f 
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UK DECUS and the 
PDP-11 Commercial Sig 

Announce 
A RSTS/E Seminar 

CARL MARBACH 
DAVE MALLERY 
AL CINI 

3 MAJOR TOPICS 

OVERCOMING FUTURES SHOCK: 
VMS from a RSTS Perspective 

FROM ALL ENEMIES— 

FOREIGN AND DOMESTIC: 

Protecting a RSTS System 

CHOOSING HARDWARE FOR 
COMMERCIAL APPLICATIONS: 
How to Size your System 

IN LONDON 

Tuesday, June 8, 1982 
From 10 A.M. to 7 P.M. 

Details available at the DECUS office: 
Reading [0734] 583555 ext. 3229 
PDP11 Commercial Sig 



GET ON OUR CASE 

Fer LSI"U, Unibus, and VAX Service 

' • V ‘ % Installation & Maintenance 

' ffrflT^VIwiw Mixed Vendor Systems 

i ’ ' |i ■ Peripheral Upgrades 

I ReplateVnent Components 
l III Add-in/Add-on Memories 
EjJWimi ,!r-.1 J ^ D enot Level Repairs 


*1 


ASSOCIATED 

MJT ^computer 

i I^^mENGINEERS 

QUALITY S ALES AND SERVICE 

7584 Trade St. • San Diego, CA 92121 

LOS ANGELES:(213) 596-2775 SAN DIEGO:(714) 578-9530 SEATTLE:(206)821-1010 
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CIRCLE 92 ON READER CARD 


LOGIN 


. . . continued from page 11 


12070 M%(3%) - M%(3%) - 1» 

\ GOSUB 11000 
\ Mt(lt), M«(2%) - 6% 

\ M%(3%) * ATT.JOB! 

\ Mt(4%) - 0% 

\ M%(5») - PROG% 

\ M% (6%) - PROJ% 

\ PRINT 

\ PRINT "Attaching to job"jATT.JOB% 

\ CHANGE M» TO LOGINS 
\ Z$ » SYS(LOGINS) 

\ RETURN 

1 IF JOB IS DETACHED UNDER THIS ACCOUNT 
I THEN PRINT THE NUMBER OF USERS LOGGED 
1 IN UNDER THIS ACCOUNT AND ATTEMPT TO 
l ATTACH TO THE SPECIFIED JOB NUMBER. 


19000 

l 

! ERROR HANDLING ROUTIt 

19005 

E$ - 

CVT$$(RIGHT(SYS(CHR$(6!)+CHR$(9!)+CHR$(ERR)),! 
! E$ - SYSTEM ERROR MESSGE 

19010 

IF 

THEN 

ERL - 2040! 

RESUME 2050! 

! IF NO MORE TEMP FILES TO DELETE, THEN 

1 TRAP ERROR AND CONTINUE WITH THE PROGRAM 

19020 

IF 

THEN 

ERR = 5! 

PRINT ES 
\ RESUME 9000! 

1 IF FILE OR ACCOUNT NUMBER SPECIFIED CAN 
l NOT BE FOUND ON THE DEVICE, THEN PROMPT 

1 USER TO THIS FACT. 

19030 

IF 

THEN 

ERR - 52! AND ERL • 31020 

RET.LINE! > 0! 

\ RESUME 1000 
! ILLEGAL LINE NUMBER 
l DEFAULT OF ZERO 

19040 

IF 

THEN 

ERR > 49! AND ERR < 53! 

PRINT "?Iliegal job number" 


\ RESUME 12030 

1 IF JOB NUMBER TO ATTACH TO IS IN 
l ENTERED IN A ILLEGAL FORMAT, TRAP 
! FOR IT AND RESUME 


19998 PRINT E$;BELL$;" at line ";ERL 
\ RESUME 9000% 

1 END OF ERROR HANDLING ROUTINE 


29999 l 


30000 ACCOUNTS - RIGHT (SYS(CHR$(7%)),6%) 

\ GOSUB 10000 

\ IF ACCOUNTS - NULLS 

THEN ENTRY! * 0 

ELSE ENTRY! - -1! 

1 GET ACCOUNT • FROM CORE COMMON 
1 OBTAIN JOB STATUS DATA 

I DETERMINE IF PROJECT-PROGRAMMER • HAS BEEN ENTERED 

30010 GOTO 1000 

1 ENTER INTO MAIN PROGRAM 

30999 I 

1CHAIN ENTRY PROCESSING 


31000 CR$ - CHR$(13!) 

\ RET.PGM$ « NULLS 
\ RET.LINE! - 0! 

\ COMMONS - SYS (CHR$(7!)) 

\ GOSUB 10000 

\ P! » INSTRU!,COMMONS,CR$) 

\ IF P!< >0! 

THEN 31010 
ELSE ENTRY! - 0! 

\ GOTO 1000 

1 SET CR$ - <CR> 

l SET RETURN PROGRAM TO NULL 

l SET RETURN LINE TO 0 

l GET CORE COMMON 

i OBTAIN JOB STATUS 

1 IS ANYTHING IN CORE COMMON? 

I IF YES, SEE WHAT IT IS 
l ELSE SET ENTRY TYPE AND PROCEED 

31010 ENTRY! - -1! 

\ ACCOUNTS ■ LEFT(COMMONS,P!-l!) 

\ COMMONS » RIGHT(COMMONS,P!+1!) 

\ P! » INSTR(1!,COMMONS,CR$) 

\ IF P!<>0! 

THEN 31020 
ELSE 1000 

1 GET ACCOUNT 

1 DELETE ACCOUNT FROM CORE COMMON 
I IS THERE MORE IN CORE COMMON? 
i IF YES, SEE WHAT IT IS 
1 ELSE PROCEED WITH MAIN LINE 

31020 RET.PGMS * LEFT(COMMONS,P!-1!) 

\ COMMONS • RIGHT(COMMONS,P!+l!) 

\ P! « INSTR(1!,COMMONS,CRS) 

\ IF P! * 0! 

THEN 1000 

ELSE RET.LINE! ■ VAL(LEFT(COMMONS,P!-l!)) 
\ GOTO 1000 

! GET PROGRAM TO RETURN TO 
! SEE IF LINE NUMBER TO CHAIN TO 
! IF NOT, PROCEED 

t ELSE GET LINE NUMBER AND PROCEED 


? 


ICCL ENTRY PROCESSING 


32767 


END 
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RPTMAN — REPORT MANAGER 

By Jonathan M. Prigot. Systems Programmer. Polyfibron Division. W.R. Grace and Company. Lexington. MA 


The report manager program, RPTMAN. is designed to 
allow users to organize data from a file and print the or¬ 
ganized data. 

RPTMAN allows the user to format the data horizon¬ 
tally. vertically, sort on any given field, generate a number 
of pre-formatted reports, or generate various forms such as 
cutting tickets, acknowledgements, etc. 

1. REPORT MANAGER SELECT SCREEN 

RPTMAN is entered from the DCS select screen. It 
presents the user with the option of generating a horizontal 
list (HL). vertical list (VL). sorted horizontal list (SL). generate 
a pre-formatted reports (PL), or generate forms such as cut¬ 
ting tickets, etc. (FM). The abort option (AB) is also provided 
to allow the user to return to the main DCS program. 

2. SELECTION CRITERIA SCREEN 

Selecting HL. VL. or SL will bring the user to the SELECT 
SCREEN. The select screen is used to get general information 
on the input data file, the output file/device, and whether 
you wish to limit the range of the report. 

The items on the select screen (and their meanings) are: 

1. RDF INDEX — The default for this item is 
LIB:RDF.VIR. If you enter an invalid RDF specifica¬ 
tion. RPTMAN will erase the invalid entry. 

2. DATA FILE — The name of the data file to use (e.g. 
R756) 

3. POINTER FILE — (used only if SL was selected) This 
is SL's workfile. The default name is the data file 
name + .PTR. 

4. DELETED/QUEST RECORDS — Default is <cr> 
(i.e. print no deleted records and no questionable 
records.) If you do wish to display either deleted 
records and/or questionable records, respond with 
D and/or Q to this option, else just enter a <cr> 
(carriage return). 

5. OUTPUT FILE — Default is LP: (the main line- 
printer'). Where to 'print' the report. This can either 
be a file, a terminal screen or a printer. The output 
can be directed to the printer attached to a 
Datamedia DT80/1 terminal by specifying KBZ: 
NOTE!: If you specify a filename for this item, it will 
be put in your assigned account. 

6. MAXIMUM WIDTH - Default 80 for KB:. 132 
otherwise. Maximum width of the output device. 

7. FORWARD/BACKWARD LIST — Default is for¬ 
ward. Since records are stored on the system in 
order of creation date, you can sometimes get your 
report faster by asking for a backwards listing. 
This is especially true if the data you desire is re¬ 
cent. 

8. HEADING OF LIST - Default is the name of the 
data file. 


9. LIST BLANK ELEMENTS - Default is no. This will 
suppress the print of blank fields in a VL. 

10. LIMIT SEARCH — Default is no. If you wish to limit 
the scope of the report, respond with Y<cr> to 
this. It will invoke the SELECTION CRITERIA screen. 

Assuming that you responded to the LIMIT SEARCH 
question with either a < cr> or N < cr>. RPTMAN will then 
ask you to CONFIRM ALL SELECTIONS. If you respond with 
anything other than a Y<cr>, RPTMAN will blank the 
SELECTION CRITERIA screen to allow you to re-enter the 
data. 

3. SELECT FIELDS 

The SELECT FIELDS screen is invoked by answering 
Y<cr> to the LIMIT SEARCH question on the SELECT 
CRITERIA screen. This screen is used to specify the charac¬ 
teristics the fields within the record must have in order to be 
listed. 

The questions on this screen are: 

1. USE CREATE DATE — Default is no. This question 
allows you to select records created within a certain 
period of time. If you respond with a Y<cr> to 
this question, you will be further prompted with: 

2. AFTER — This is the date of the earliest record you 
want. Separate the fields within this question by 
typing a <cr> after day. after month, and after 
year. Entering a <cr> alone for the date means 
use the earliest record in the file. 

3. BEFORE — The date of the last record you want. 
Operation same as AFTER. A <cr> for the day 
means use the latest date in the file. 

4. FIELD NUMBER OR NAME - The user can enter 
either the field number (e.g. F3001.1.R789) or any 
part of the field name (e.g. DUE DATE). If there is 
more than one field containing the specified name, 
or if RFTMAN cannot find the field you specify, it 
will so inform you and reposition the cursor for 
another trial. Entering a <cr> alone ends field 
specification. 

5. BETWEEN — Sets the lowest value allowable. 

6. AND — Sets the highest value allowable. 

After you enter < cr> to terminate select field specifi¬ 
cation. the system will then ask you to confirm your selec¬ 
tions. If you enter anything but Y<cr>. the system will 
erase the screen and allow you to redo your selections. Once 
you confirm your selections, the system will ask you to con¬ 
firm all your selections. If you respond with anything except 
Y< cr>. the system will return to the SELECTION CRITERIA 
screen for re-entry. 

4. VERTICAL LISTING (VL) SCREEN 

The VL program will inform you that it is [WORKING], 
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5. HORIZONTAL LISTING (HL) SCREEN 

The HL program screen is used to select what fields 
within the record will be printed, and whether the contents 
of the field are to be counted or totaled. Those fields that are 
designated as alphanumeric fields are counted, while those 
that are numeric are totaled. 

The screen prints out the field number and the field 
name, then waits for your response. The legal responses are: 

1. <cr> — Do not list this field. 

2. Y — List this field and use the field name on the 
report. 

3. heading — Use this title for the field heading. 

4. resp/T — List this field using either the default 
heading or this heading (per items 2 and 3 above), 
and give field count or total at the end of the report. 

5. LAST — Do not print this field 
or any field that comes after 
this field. 

6. REST — Print this field and all 
the other fields that come 
after. 

7. up-arrow key — Back up one 
field to allow re-selection. 


subtotaled whenever the contents of the associated trigger- 
field changes. 

After all fields have been specified, the program will 
prompt for whether you want the report in report format or 
tape format. Report format has page numbering and report 
and field titles. Tape format does not; it is pure data. If you 
choose tape format, you will be further prompted as to 
whether to separate the output with spaces or commas be¬ 
tween the data. Because the output from the tape option is 
usually used as input to another program, your response to 
this question depends on what the next program requires. 

BIBLIOGRAPHY 

[1] R.R. Jaques, A. Eloy, "Design of a Data Base Manage¬ 
ment System for W.R. Grace and Company" December 
1981, Fall DECUS U.S. symposium. « 


After all desired fields have been 
listed, the user will be returned to the 
SELECT SCREEN, unless the report was 
sent to the user's keyboard, in which 
case RPTMAN will ask the user to type 
a <cr> to continue. 


6. SORTED LIST (SL) SCREENS 

There are two screens associated 
with the SL program: 

The SORT SPECIFICATION SCREEN, 
and the FIELD SELECTION SCREEN. 

The SORT SPECIFICATION screen 
specifies the fields to sort and the di¬ 
rection to sort them in. As in the select 
screen above, either field number or all 
or part of the field name can be used to 
specify the field. The order of the sort 
can be either ascending or descending 
for the individual field. 

The FIELD SELECTION screen is 
similar to the HL screen, with the addi¬ 
tion of a SUBTOTAL (/S:) option. The 
/S: option operates in a similar fashion 
to the TOTAL (/T) option in that it pro¬ 
vides a sub-count or sub-total of the 
field. It is used by appending a 
/S:trigger-field-name-or-number to the 
Y or field-heading specification. You 
may either specify the trigger field's 
number or a portion of its title. If the 
field specification is not acceptable, 
you will be notified, and allowed to re¬ 
enter your specification. 

During the running of the pro¬ 
gram. the selected field will be 


PDP-11 & VAX users... 


ComDesign’s TC-3 Concentrates 

Multiple Terminals 

Over One Phone Line 

ok 


. Without 


> COST SAVINGS TO 90% 

Totally eliminates DZIls, extra 
modems and phone lines. 

' STATISTICAL MULTIPLEXING 

Up to eight 9600 bps terminals 
over 1 phone line. 

» ERROR CORRECTION 

Phone line errors eliminated 
automatically. 

I PROVEN RELIABILITY 

Over 3 years MTBF. 

> FAST ECHO RESPONSE 


a DZ11! 


CONCENTRATION 

Multiple terminals—one line. 

COMPLETELY TRANSPARENT 

No software changes needed. 

* BUILT-IN SYSTEM 
MONITORS 

Real-time data and signal 
displays, statistics and error 
counters. 

I POWERFUL DIAGNOSTIC 
PANEL 

Modem loop-back, unit self¬ 
tests, and terminal diagnostics. 


Only $240/mo. for a TC-3 ... Connect 
8 Terminals on 1 Phone Line, Without a DZ11. 


For further information and the sales office for your area 
call toll-free (800) 235-6935 or in California (805) 964-9852. 


ComDesign 


ComDesign, Inc. 

751 South Kellogg Avenue 
Goleta, California 93117 

“ Registered Trademarks of DEC 


CIRCLE 46 ON READER CARD 
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Now There is a WP System 
Designed Specifically for the DEC User 

With the WP Saturn Word Processing/List Processing Software, you have 
low overhead, quick response and power. 


DO WHAT SO MANY HAVE DONE: 

COME TO SATGRN 
FOR THE ANSWERS 

• Faster and more powerful than the stand 
alones 

• Faster and friendlier than other computer 
based systems 

• More features to solve your word and ist 
processing problems 

• Extensive help commands 

• Saturn runs on RT-11/TSX, RSX, RSTS. 
IAS. VMS 

• Saturn's ASCII Format interfaces to stand¬ 
ard DEC files 

• Assembler Language provides maximum 
speed and efficiency 

• User Friendly Prompting helps you master 
word processing with minimal training 

• Extensive List Processing: Forms, prompt 
ted data entry, and sort/select: phis flexible 
merging of lists and documents 


For additional information call toll free 1 800-328-6145 


SATURN SYSTEMS 

6875 Washington Avenue South. Suite 218, Edina. MN 55435 (612) 944-2452 

CIRCLE 26 ON READER CARD 


LETTERS . . . continued from page 71 

privileges, if any. This can be done in CALLER by 
adding another DATA element to each command 
description and dropping temporary privileges if 
indicated. 

Last year we were faced with the problem of not 
enough small buffers on a system with 30+jobs and 
in excess of 200 CCL’s. While the number was 
sufficient at the time, the system was still growing 
and we had set the number of small buffers to the 
maximum when doing the systems. At the time.it 
was decided that regardless of the solution decided 
upon it was absolutely necessary that it meet the 
following requirements: 

1. Any additional system overhead must be 
negligible. 

2. The change must be transparent to the users. 

3. Abbreviated commands were to be allowed. 

4. The command must execute the same as a 
CCL. 

The final solution, arrived at mainly due to the 


BACK ISSUE OFFER 

ALL 10 BACK ISSUES 
OF 

THE RSTS PROFESSIONAL 
$75.00 

Send check to: 

THE RSTS PROFESSIONAL 
BOX 361 

FT. WASHINGTON. PA 19036 

PAYMENT MUST ACCOMPANY ORDER 


WP SATURN FEATURES 

RLE FUNCTIONS: Automatic backup • Uses ASCII source files • File 
directories location, type, date • File Merge • Password security • 
Pnnt formatted file • Review formatted file • Store formatted file 
SCREEN EDITOR: Advance Forward £» Backward • Automatic Car 
nage Return • Column Operations • Copy. Cut. Delete • Cursor 
Controlled • Display of Operator Actions • Formatted Text Dis 
played • Vertical and Horizontal Scroll • Load from another docu 
ment • Paste • Prompts • Replace Global or Selective • Search 
TEXT FORMATTING: Automatic Hyphenation. Formula. User defined 
dictionary • Automatic Index & Table of Contents • Automatic 
Outline Formats. Outline. Decimal • Centenng • Date Insertion • 
Headers & Footers • Justification • Line Indent • Line Spacing • 
Multilevel Superscripts & Subscripts • Over strike. Underscore • 
Page Numbenng • Page Size • Page Test • Paragraph Indent • 
Redefine Format Values • Reformat Without Retyping • Table Pro 
ted (no page breaks) • Tabs. Left. Right. Any charader • Vanable 
Spacing • Word Wrapping • Footnotes 
UST PROCESSING: Form Generation • Prompted Data Entry • 
Multi Key Sort Seled Exclude • Record Search • Sequential. Binary 
• Unrestnded Field Insertion • Field replacement. Global. Seledive 


necessity of not adding any overhead to the system, 
was to create a new run-time system which con¬ 
tained the CCL commands and also served as a 
keyboard monitor. It was made permanently resi¬ 
dent and took 2K words of memory. A minor 
change to the LOGIN program and it became the 
job's private default run-time system at login time. 
All of the above requirements were met and upon 
benchmarking its efficiency, we found it to he fas¬ 
ter and used less CPU time than a normal CCL. 

Anyone interested in this approach may write to 
us. We are also enclosing our renewal subscription 
for the forthcoming year. The articles in the RSTS 
Professional are excellent and I look forward to 
seeing it 6 times annually. 

Keep up the good work. 

D.D. (Bud) Mundy, President 
DMD Computer Consultants Inc. 

Agincourt, Ontario 


Thank you for the honorarium I received for my 
article in the Dec. 1981 RSTS Professional. It was 
totally unexpected. As contributing to your maga¬ 
zine was a group effort, I have given this honora¬ 
rium to my company’s Children’s Hospital of 
Pittsburgh charity drive. 

Once again, thank you for letting us participate 
in the RSTS Professional. I look forward to work- 
ing with you again in the future. Davjd FroWe 

Senior Technical Consultant 
Transcomm Data Systems, Inc. 


I am very grateful for the first copy of thejournal 
*RSTS Professional ’ which I have just received. It 
is indeed a very impressive journal and I am sure 
that it will serve us well in our work. 

Dr. S. Ron, Head of Institute 
Tel-Aviv Univ. Medical School, Israel 
Were here to he of service. Dr. Ron. 


We could not find any Tea Co’s, but will this do? 



Thanks for a great magazine. 

Nick Wright & Mark Itzcovitz 
Piccadilly Computer Services Ltd. 
Stanmore, Middlesex, UK 
P.S. See you at this vear’s DECUS UK Commer¬ 
cial S1G? 

Here w e go again!!! 

P.S. Yes. (And thanks for that great ad above. )9 
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D Send Classified Ads to: RSTS Classified. P.O. Box 361. Ft. Washington. PA 
19034-0361. s 1°° per word, first 12 words free with one year's subscrip¬ 
tion. [Be sure to include a phone number or address in your message ] 


NEW 11/70 priced to move quickly. Call for 
specs (812) 479-6951. 

GOOD DEAL on DECNET/E software li- 
cense. Call Online Data Processing, Inc. 
(509) 484-3400. 

FOR SALE Two RL02’s in H9642 cabinet, 
controller, bootstrap ROM,11 cartridges. 1 
year old. DEC maintained, DEC deinstalled. 
Available immediately. Asking $7000. Call 
Bret (814) 849-3057. 

TIMESHARING AVAILABLE on PDP 11/70 
RSTS. Software also. Call Wabash Time 
Share in Indiana (317) 448-1686. 


Rapidly expanding Southern California 
Company with good benefits has open¬ 
ings for experienced DEC software sys¬ 
tems programmers to work on high level 
database management system. 3-5 years 
PDP-11, RSTS/E, Basic-Plus, BP2 and 
MACRO required. Must have thorough 
understanding of RSTS/E operating sys¬ 
tem. VAX/VMS and VAX/BASIC desirable. 
Must be willing to relocate. Send resume 
with salary requirements to: 

NCCS, Inc. 

2235 Meyers Ave. Escondido, CA 92025 

RSTS 

RESCUE SQUAD 

We salvage all kinds of disasters: 

• unreadable disks 

• ruined UFDs and MFDs repaired 

• immediate response 

• telephone DIAL-UP 

• on-site 

• software tools 

• custom recovery 

• 90% success to date 

• more than 1 GB rescued to date 

Brought to you by 

On Track Systems, Inc. 

and a well known (and read) 
RSTS expert. 

CALL 24 HOURS 
215-542-7133 


LOOKING FOR l 

DEVELOPMENTTIME? 

$ 

NO KIL0C0RE TICK CHARGES 
NO CPU CHARGES 


RSTS/E TIME 


PER HOUR 
CONNECT 
TIME 


BASIC PLUS 

BASIC PLUS^ WITH CROSS 
PASCAL > COMPILER 
“C" J SUPPORT 

WORD-11 WORD PROCESSING I 

WAFE ' 

TEC0 
EDT 


} 


PROGRAM 

EDITING 


BUDGE1 

BYTES 

212 - 

.944-9230, 


OMNICOMPUTER, INC. 

■m 1430 Broadway, New York, N.Y. 10018 


DEC BEST VALUES ^ 


PRE-OWNED DEC EQUIPMENT 

BUYING AND SELLING 
SYSTEMS • CPUs • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 


CALL DICK BAKER (305) 979-2844 

Hntnwnr^ Carico Center 
UUIUWUIC 2845 NW 62nd Street 
IFt. Louderdale. Florida 33309 
^IM^^ipWIUIt^feiephCTte(305)979^2W4^y 



The FAMOUS 
RSTS PROFESSIONAL 
TEE-SHIRT 
is now for sale! 

Send size desired and $6.95 
for each shirt to: 

RSTS TEE-SHIRT 
P.O. Box 361 

Ft. Washington, PA 19034-0361 
Shirts available in adults sizes only: 
Small - Medium - Ijtrge - X-Large 



It’s 3:00 am. Do you know who is on your 
computer? Lots of Luck from Lock-11. 

LAUSD thanks Kevin Herbert & RSTS Pro 
for Term Links on V7. 

Interested in used DEC equipment. Contact 
Liz Endicott, P.O. Box 948, Kilken, TX 76541. 

ABLE DH/DM’s, CACHE 4/34, backplanes 
and other goodies. Dave Mallery (215) 
364-2800 

For Sale, PDP-11/34A, 128KW, RLOI’s, 
RX02’s, DZ11, LAI80, VTIOO’s like new. (205) 
852-8950. 

For Sale, One (1) 11/40 CPU and RP04 Disk- 
96KW. (403) 488-9671. 


SAVE YOUR quarters, games for RSTS/E 
are here. Interactive, real-time games 
for VT52 and VT100 terminals. Some of 
the games available: 

BLKADE: As many as eight players try to 
force each other to collide with their 
growing tails on the screen. 

STRWRS: You have five minutes to 
destroy the Death Star with your single 
X-wing fighter. 

SUBS: Two players manuever around 
islands in an attempt to sink the other 
player’s submarine. 

Games come on 9-track magtape with 
their own high-quality user manuals. 
Order the first game for $39.95, $29.95 
for each additional game. Individual 
manuals available for $9.95 each. 

Send your check, or write or call: 

INFINITY SOFTWARE CORPORATION 

2210 Wilshire Blvd. 

Suite 801 

Santa Monica, California 90403 
(213) 820-2702 


Ready for ABLE?? Call Dave — he’s ready 
and ABLE. (215) 364-2800. 

Backup sites needed PDP11-RSTS, Los 
Angeles area, call Jim Cecil 213-926-0519. 
Will Reciprocate. 


11/40, reborn, but now retired. CPU with 
RSTS options. CHEAP. Dave Mallery (215) 
364-2800 

Expert consulting, programming services. 
RSTS/E business/financial applications. 
Practicomp, (415) 665-0628, San Francisco. 


& $200 -- 

WORD PROCESSOR % 
CBEDIT.BAS 

Basic-Plus* program with VDT input, 
window edit and document save. Add, 
locate, change, replace, delete, block 
move and copy merge, etc. Crash 
and operator error recovery. Supports 
DEC, Hazletine and Mime standard 
VDT’s. Others easy to add. 

Fully formatted output (margins, justify, 
center, underscore, super-sub-script, 
readers, page numbers, etc.), to type¬ 
writer, line printer or disk. Bidirectional 
driver for Diablo-Xerox 16-17. 

User's manual and source 
code included. 

9-Track $200. RK05 $260. ppd 
T. F. Hudgins & Associates, Inc. 

P. O. Box 10946, Houston, Texas 77018 
Woods Martin 713/682-3651 

*TM Digital Equipment Corporation 


PLAN PLUS 
FINANCIAL PLANNING 
SYSTEM 

RSTS/E, $4,500. 
PLAN-PLUS LIMITED 
P.O. Box 327 
London, W4 4QD 
Tel. UK 01 834 7334, Ext. 7935 
[24 Hours] 

Telex 8813271 GECOMSG 
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CLASSIFIEDS 


Share your time with 

RSTS 

CHEAP! 

on 

WALL STREET, NYC 

Local error-free dial-in 
or leased line termination 

and in 

PHILADELPHIA 
& VICINITY 

DEC 11/70.24 hrs. 7 days 
Secure Backups 
B+. B+2. DIBOL. etc. 
WORD-11. TECO. EOT 

Secured by LOCK-11 


NATIONWIDE DATA DIALOG 

DAVE MALLERY 

215-364-2800 


“Don’t worry Carl, you will be able to play 
INVADE in May! — Infinity Software. 

NEW 11/44 priced to move quickly. Call for 
specs (812) 479-6951. 
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NEWS 

RELEASES 



Occasionally we are requested to print news that may be of interest 
to the RSTS community. We are happy to offer this feature to our 
readers. We reserve the right to print only as time and space 
permit. We cannot return photos or manuscripts. Send news 
releases to: RSTS News Release. P.O. Box 361. Ft. Washington. PA 
19034-0361. 


February, 1982 

DILOG APPOINTS G.E. FOR SERVICE OF 
DEC-11 COMPATIBLE CONTROLLERS 
Garden Grove, CA — DILOG (Distributed Logic 
Corp.) has reached agreement with General 
Electric Company, Norcross, Georgia to main¬ 
tain and service DILOG's DEC-11 compatible 
Disc and Mag. Tape Controllers in the continen¬ 
tal U S. according to Dennis Edwards, National 
Sales Manager for the Garden Grove, Calif, 
controller manufacturer. 

The DILOG disc and tape controllers to be 
maintained and serviced by G.E. are compatible 
with Digital Equipment Corp. software and 
operating systems for LSI-11 and PDP-11 CPUs. 
The third party maintenance will be conducted 
by G.E. in their 51 locations nation-wide. 


March, 1982 

INFINITY SOFTWARE NEW PRODUCTS AND 
RELEASES 

Santa Monica, CA — Infinity Software Corpora¬ 
tion, specialists in PDP-11 RSTS/E software, has 
announced the release of version three of their 
general purpose file dump utility, DUMPIT. The 
new version of DUMPIT features: Macro-11 code 
that offers twice the speed of the previous 
version, complete support for large files', detec¬ 
tion of duplicate lines of output, more attractive 
report output, and a friendly user interface. 

Simultaneously, Infinity Software also 
announced a block mode simulation data entry 
subroutine ENTRY, as it is called, is callable 
from Basic Plus II and CSPCOM programs. The 
subprogram is written explicitly to converse 
with DEC VTlOO-like terminals. Some of the 
features include: minimum character output to 
perform well at low baud rates, field as defini¬ 
tion string, integer, or floating point, right or left 
filling with any character, recognition of pro¬ 
grammable function keys, and various field 
editing. ENTRY is provided as source code to 
allow modifications for individual user needs. 

Infinity Software Corporation is located at 
2210 Wilshire Blvd., Suite 801, Santa Monica, 
California 90403, (213)820-2702. 


January, 1982 

NEW "WORKER” FINANCIAL PLANNING 
SOFTWARE INTRODUCED FOR DEC PDP-11 
and VAX COMPUTERS 

Denver, CO — Finar Systems Ltd. announces a 
new financial planning software package to give 
first-time planners access to modeling capabili¬ 
ties for under $5000. 

Called WORKER (WORKsheet Evaluation and 
Review), this unique financial planning tool 
provides arithmetic, report formatting and gra¬ 
phics capability to conduct spreadsheet manipu¬ 
lation of the type associated with planning and 
budgeting tasks. As the planner's need for more 
sophisticated analytical techniques increases, 
WORKER can be upgraded to FINAR (Financial 
Analysis and Reporting) without modification to 
existing WORKER models. 

FINAR, also designed for DEC PDP-11 and 
VAX computers, offers the latest investment 
related tools for decision-making in the areas of 
financial analysis, forecasting, planning, 
budgeting and consolidation. 


For further information on WORKER or 
FINAR, call or write: Michael Hulme, Finar 
Systems Ltd., 6000 E. Evans, Suite 2-300, 
Denver, CO 80222, (303) 75&7561. 


January, 1982 

INTERACTIVE SYSTEMS AND SOFTWARE 
INTRODUCES EXECUGRAPH 
Danvers, MA — Execugraph, an inexpensive 
software package which produces bar charts, 
line drawings, pie charts and histograms, has 
been introduced by Interactive Systems and 
Software, Inc. of Danvers, Mass. 

Graphs and charts summarize masses of 
written data into graphic visual form, from 
which management can make faster and more 
intelligent decisions. Types of information which 
Execugraph can translate from staid written 
form to exciting graphic form include current 
and historical information, trends in sales, 
profits, growth and marketing efforts. 

The presentation prepared by Execugraph can 
be displayed on a CRT type terminal or chart 
plotter. Depending on output medium, these 
graphs can be displayed in several colors. 

A person does not need programming skills to 
operate Execugraph. A brief question and 
answer dialogue will produce full documented 
graphs. 

Execugraph is capable of graph selection and 
storage, storage and retrieval of user-defined 
graph formats and separate data file entries for 
use with user-defined formats. It is also capable 
of interface definition for external user programs 
and composite graphs (e g. forecast vs. actual). 

The program is written entirely in FORTRAN- 
IV and is capable of operating on any computer 
which has a minimum of 28kw of memory space 
and graphical outpt device. The program is 
supplied with user documentation and exam¬ 
ples. Execugraph is accompanied by a 90 day 
warranty; an annual subscription update is 
available for 10% of the license fee. 

Hardware required for Execugraph is a digital 
computer system with 28kw program space, a 
disk operating system with FORTRAN-IV and a 
graphic output device (plotter, graphic 
terminal). 

Execugraph is offered under a license agree¬ 
ment from: Interactive Systems and Software, 
Inc., P.O. Box 348, Danvers, MA 01923, 
(617)774-6703. 


February, 1982 

ADVANCED VIDEO GRAPHICS ADDED TO 
RAXCO S VAX PERFORMANCE ANALYSIS 
SYSTEM 

Atlanta, GA — RAXCO, Inc. announces new 
graphic peformance analysis capabilities by 
utilizing advanced video features of VT100 
terminals under RABBIT-2 RABBIT-2 is RAX- 
COs interactive performance analysis software 
for VAX/VMS and RSTS/E environments. 

The new features includes automatic scaling 
to maximum height and width of the VT100 
terminals, vertical and horizontal bar graphs, 
reverse image and bar selections. RABBIT-2 will 
also superimpose multiple graphs on the same 
display which often makes relative data more 
meaningful. 

RABBIT-2 is a software tool for system manag¬ 
ers and operational managers to investigate 
system bottlenecks, resource consumption, user 
activities, and program efficiencies. It may be 
utilized in an interactive, diagnostic mode or 
through a batch command file. An English-like 
command language is employed. Graphic out¬ 
put may be directed to a terminal or line printer. 

RABBIT-2 is priced at $2495 for RSTS/E and 
$3995 for VMS systems. Rentals are available at 
$99 and $200/month respectively. RABBIT-2 is 
sold and supported throughtout the U S A., 
Canada and the U K 

RAXCO provides a wide range of operational 
software for DEC computers including Resource 
Accounting, Job Accounting, Data File Security, 
Data Management and Financial Planning. 

For more information contact: RAXCO Inc., 
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6520 Powers Ferry Road, Suite 200, Atlanta, 
GA 30339, U S A., (404)955-2553. 


February, 1982 

EMULEX ANNOUNCES 5 MASSBUS COM¬ 
PATIBLE SUBSYSTEMS FOR END USERS OF 
VAX 11/750 COMPUTERS 
Santa Ana, CA — Emulex Corporation has 
announced the availability of the first true 
Massbus compatible storage subsystems for use 
with DEC VAX 11/750 computers. 

The first five offerings include Emulex's 
recently introduced SC750 disk controller with 
both fixed and removable media disk drives 
with capacities ranging from 80 to 675 meg¬ 
abytes. Since the SC750 functionally emulates 
the DEC RH750 Massbus adaptor and the 
peripheral Drive Control Logic, it is transparent 
to VAX software, including UNIX, VMS and 
DEC diagnostics. 

The new subsystems and their list prices are: 

• an RM03 equivalent using an 80 MB remova¬ 
ble media drive, priced at $17,900; 

• an RM05 equivalent using a 300 MB remova¬ 
ble media drive, priced at $25,900, 

• an RP07 equivalent subsystem using a 675 
MB Winchester disk drive, priced at $36,550, 

• an RM80 equivalent subsystem using a 160 
MB Winchester disk, priced at $17,900; 

• and an RM03 equivalent subsystem using an 
80 MB Winchester disk drive, priced at $16,200. 
All of the subsystems are available now for 
30-45 day delivery. Installation is available 
directly from Emulex and arrangements are 
being made to include all SC750 subsystems 
under the existing maintenance agreement 
between Emulex and Control Data Corporation. 

'These new packages represent the first, and 
only, true Massbus compatible systems availa¬ 
ble for use with the VAX 11/750," explained 
Phillip (Flip) Begich, Emulex director of national 
marketing. 'They are not available from anyone 
else, and for the first time, they provide 11/750 
users with an even wider range of disk storage 
capacities than is available from DEC for either 
the 11/750 or 11/780." 

All of the subsystems employ the SC750 
controller which is contained on a single 
extended hex-size printed circuit board and 
mounts in one of the three RH750 Massbus 
adapter slots in the 11/750 backplane. The 
controller interfaces directly with the 32-bit CPU 
Memory Interchange (CMI) bus of the 11/750. 

It contains the memory mapping and registers 
of the RH750 as well as all the disk control logic 
for up to eight logical drives. 

"We also have an RP06 emulation on the 
SC750 controller to support the use of a 200 
MB drive as an RP06 subsystem, but we do not 
offer that as a standard off-the-shelf subsystem," 
Begich noted. 'The emulation is available, 
however, and we can make arrangements with 
one of our dealer/distributors to supply that 
subsystem package to users who desire it." 

Emulex also offers VAX Unibus versions for 
all the disk subsystems, using its SC21 con¬ 
troller, for both the 11/750 and 11/780, most 
users would employ the new Massbus compati¬ 
ble subsystems, however, because the pricing is 
so close between the two versions that most 
people would prefer to have the higher perfor¬ 
mance and full software transparency gained 
with the SC750 controller," Begich said. "On 
the 11/780, however, there is a substantial 
price difference between the Uni bus and Mass- 
bus compatible subsystems." 

The SC750 subsystems are the latest in a 
series of products intended specifically for use 
with the VAX series of computers. The SC11/U 
and CS21/U communications multiplexers pro¬ 
vide a DH11 equivalent capability to speed up 
asynchronous communications on VAX systems. 
The CS11/U can handle up to 64 lines from a 
single board controller, while the CS21/U gives 
the same high performance for up to 16 
channels and at a new low price. Each of these 
multiplexers is supported by Emulex's own 
VAX/UH software which consists of a driver 
plus diagnostics. The recently announced 


CS21/Z multiplexer is also available to VAX 
users. This product emulates the DZ11 commun¬ 
ications subsystem and provides complete soft¬ 
ware transparency under VMS, UNIX, and DEC 
diagnostics. In addition to these communica¬ 
tions products, Emulex also offers the TC11/V 
tape controller which lets users connect any 
standard half-inch, reel-to-reel 800 or 1600 bit 
per inch tape drive to any VAX system. 

Emulex Corporation, based in Santa Ana, is 
the leading supplier of disk, tape and communi¬ 
cations controllers for use in interfacing a wide 
variety of peripherals and communications devi¬ 
ces to computers made by Digital Equipment 
Corporation. The company's new Systems 
Group also sells and installs complete LSI-11, 
PDP-11, and VAX-11 disk subsystems ranging 
in size from 80 to 675 megabytes, with service 
provided by Control Data Corporation. 


February, 1982 

EGH RELEASES V 16 OF DIALUP 
Lexington, MA — Evans Griffiths and Hart, Inc. 
(EGH) announces the release of Version 16 of 
DIALUP, an asynchronous communication 
package running under RSTS/E on the PDP-11 
and under the ROSS/V RSTS/E simulator on 
the VAX. DIALUP uses a standard asynchro¬ 
nous terminal line to link its host system to a 
remote computer system either via a telephone 
line or via a null-modem connection (if the 
systems are close enough together). 

DIALUP supports user-directed dialing 
through automatic calling units, virtual connec¬ 
tion of the user's terminal to the remote system, 
transmission of ASCII text files to and from the 
remote system, and, if the remote system is 
RSTS/E or VMS with ROSS/V, block-mode 
transmission of binary files (or pieces of files) 
with CRC16 block checking, block-level retries, 
and the preservation of attributes. 

The binary file transfer module, which is 
easily bootstrapped to the remote system, is 
written in machine language. Although 
machine-language code instead of BASIC-PLUS 
doesn't reduce RSTS/E monitor overhead for 
processing asynchronously transmitted data, it 
does reduce user-mode time by a factor of six 
and overall CPU time by a factor of 2.5, raising 
transmission throughput. This is particularly 
important when two adjacent computers are 
connected by a null modem operated at 9600 
BAUD. 

In Version 16 of DIALUP, support has been 
added for VADIC-style multi-line autodialers 
(both DN11- and RS232-controlled), and the 
binary file transfer module has been enhanced 
to support the use of command files. DIALUP 
may thus be used to transfer large quantities of 
data to and from a remote system without 
someone having to be present. Also included in 
Version 16 is a rudimentary command lan¬ 
guage that allows branching on errors, chain¬ 
ing to and from other programs, and waiting 
with retries, when, for example, a phone line is 
temporarily busy. The command language also 
allows the definition and execution of macros 
that specify complex sequences of DIALUP 
commands. Frequently dialed telephone 
numbers may also be saved as macros. 

Version 16 contains several new modules that 
simplify macro definition in DIALUP. One of 
these, especially intended for new users of 
DIALUP, guides the user through the definition 
of one or more macros that may be used to 
simplify establishing a connection with a 
remote system. 

First released in 1980, DIALUP is currently in 
use at over 40 sites. The price of a single CPU 
license is $1,700.00. For further information, 
contact: Evans Griffiths and Hart, Inc., 55 
Waltham St., Lexington, MA 02173. (617)861- 
0670. 


f 


DATA 

BOSS/99 


Data Base Management 
on VAX ... $3,500.00 
Data Base Management 
on RSTS/E $2,500.00 
RSX-11/M .. $2,000.00 

FCI, in business for over 
10 years and specializing 
in Data Base Management 
Systems is offering a 
unique opportunity 
to DEC users with 
RSTS/E systems, DEC 
users with VAX systems 
or anyone contemplating 
the use of either system. 

Let your curiosity get 
the best of you. Call for 
information on Data Boss/99 
under the RSTS/E or VMS 
Operating Systems. 

ft! 

Florida Computer, Inc. 

99 N.W. 183rd Street 
Suite 126 

North Miami, Fla. 33169 
(305) 652-1710 (Miami) 

CIRCLE 40 ON READER CARD 


RUSH 

JOB 

CALENDAR 

Neg 

Fri 

Fri 

Fri 

Thu 

Wed 

Tue 

8 

7 

6 

5 

4 

3 

2 

16 

15 

14 

12 

11 

10 

9 

23 

22 

21 

20 

19 

18 

17 

32 

30 

28 

27 

26 

25 

24 

39 

38 

37 

36 

35 

34 

33 

i This is 

i a special calendar tor handling rush 

|0b All 

rush jobs are 


wanted yesterday With this calendar a |0b can be ordered on the 7th 
and delivered on the 3rd 

2 Most |0t>s are required by Friday so there are three Fridays in every 
week 

3 There are eight new days added to each month to allow tor end-of 
the-month panic jobs 

4 There is no first of the month-thus avoiding late delivery of the 
previous month s last-minute panic |obs 

5 Monday morning hangovers are abolished together with non¬ 
productive Saturdays and Sundays 

6 A new day- Negotiation Day has been introduced keeping the other 
days free for uninterrupted panic 


MANY THANKS TO PAULINE N0AKES 










Dataram Corporation offers the industry’s 
widest range of DEC-compatible 
peripheral controllers — from 
comparatively simple NRZ1 tape 
controllers to complex 300 MB storage 
module drive (SMD) controllers. 

An impressive array of state-of-the-art 
controllers, all built around high-speed 
bipolar microprocessors. All software 
compatible with the host LSI-11®, 
PDP®-1I, or VAX® minicomputer...and 
all available now. 

And Dataram’s controllers are designed to 
save you money, and, more importantly, 
space — our controllers typically occupy 
half the space required for the comparable 
controller from DEC. Doing it with a 
level of performance that makes any 
member of this family worth looking at. 

The chart shows our current family of 
peripheral controllers, growing every day. 
If you don’t see the controller you need, 
we’re probably working on it right now. 
Call us and discuss your requirements. 


DATARAM 

CORPORATION 


Princeton Road 
Cranbury, New Jersey 08512 
Tel: 609-799-0071 TWX: 510-685-2542 


CONTROLLER 

DESCRIPTION 

COMPATIBILITY 

C03 

Cartridge disk controller 

RK05 

C33 

Cartridge disk controller 

RK05 

T03 

NRZI mag tape controller 

TMII/TUI0 

T04/N 

NRZ1 mag tape controller 

TMII/TUI0 

T04 D 

Dual density mag tape controller 

TMII/TUI0 

T34/N 

NRZI mag tape controller 

TMII/TU10 

T34/D 

Dual density mag tape controller 

TMI1/TUI0 

T36 

Dual density mag tape controller 

TMII/TUI0 

S03/A 

80MB 300MB SMD controller 

RM02/RM05 

S03/AI 

160MB SMD controller 

RM02 

S03/B 

80MB/300MB SMD controller 

RK07 

S03/C 

200MB 300MB SMD controller 

RP06 

S03/D 

96MB CMD controller 

RK06 

S33/A 

80 MB/300 MB SMD controller 

RM02/RM05 

S33/AI 

80 MB /160 MB SMD controller 

RM02 

S33/B 

80 MB/300 MB SMD controller 

RK07 

S33/C 

200 MB 300 MB SMD controller 

RP06 

S33/D 

96 MB CMD controller 

RK06 


Products printed in red are LSI-11 Bus compatible. 

Products printed in black are UNIBUS® compatible for PDP-II and/or VAX 
minicomputers. 


DFC. l.SI-ll. PDP. UNIBUS and VAX are registered trademarks of Digital Pquipment Corporation. 


Canada: Ahearn & Soper Ltd . 416-245-4848 • Denmark: Technitron ApS. 02 96 98 22 • Finland: Systek OY. (80) 73 72 33 • France: YREL. (03) 956 81 42 • Hungary/Poland/Rumania: 
Unitronex Corporation. WARSAW 39 6218 • Italy: ESE s.r.l., 02/607 3626 • Netherlands: Technitron b.v . (020) 45 87 55 • Sweden: M. Stenhardt AB. (08) 739 00 50 • Switzerland: 
ADCOMP AG. 01/730 48 48 • United Kingdom: Sintrom Ellinor Ltd.. (0734) 85464 • West Germany: O E M -Elektronik GmbH. 07 11-79 80 47 • Yugoslavia: Institut "Jozef Stefan", 
263-261 • Australia/New Zealand: Anderson Digital Equipment. (03) 544-3444 • India: Infosystems Private Limited. 79281 • Israel: Minix Computers & Systems Ltd . 03-298783 • 
Japan: Matsushita Electric Trading Co . Ltd . 06 (282) 5111 • Taiwan: Rabbit Associates. Ltd . 7219573-5 • Hong Kong: Automated Systems (HK) Ltd . 5-630256-9 • 
Malaysia: Automated Systems (M) Sdn Bhd.. 773777 • Indonesia: P T Daya ASL, 584306 • Singapore: Automated Systems (PTE) Ltd.. 2354133 
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Thousands sold worldwide 
since 1978 

Super 

Max 

The single-board, 

16-line ABLE DH/DM " 
that enhances 
any UNIBUS 
system with 
DH-performance 
at DZ-prices. 


A few years ago, we broke new ground with our 
DMAX/16”, the original alternative to the DEC 
DH11. DMAX cut the space requirements from 
nine slots to three and became an immediate 
worldwide success. Now we’ve come up 
with something even better. This time it’s 
ABLE DH/DM”,an alternative that 
achieves the optimum cluster size —16 
lines with modem control on a single 
board. You can compare MTBF, price and 
throughput and find that ABLE DH/DM beats 
everything in its class. No one else comes close. 

The ABLE DH/DM” is today’s answer to VAX 
system needs for DMA communications multi¬ 
plexing and serves all standard UNIBUS systems 
equally well. Each 16-line ABLE DH/DM” installs 
in any standard hex-width slot at only one unit bus 
load and is DH11 compatible to the diagnostic level. 
Just plug it in and see it run — up to 19.2K baud 
using only half the UNIBUS bandwidth of a 
DEC DH11. 

Key ABLE DH/DM” features include on-board 
diagnostics with LED display, modem control on 
all lines, improved on-board silo depth and variable 
PROM set for proprietary OEM applications. 

Keep up with ABLE and optimize your VAX, 
PDP-11 or System 20. Write or call today for details 
on our full line of UNIBUS-compatible special- 
memory, general-purpose and data-communications 
products plus the MAGNUM~ computer series. 


VMS operation! 


the computer experts 

ABLE COMPUTER, 1732 Reynolds Avenue, 

Irvine, California 92714. (714) 979-7030. TWX 910-595-1729 ACT IRIN. 

ABLE COMPUTER, ABLE Computer House, 

London Road, Newburv, Berkshire, England RG13 2QJ. 

44(0635) 32125. TELEX 848715 ABLE G. 

ABLE COMPUTER GmbH, 

Forsthausstrasse 1,8013 Haar (Near Munich), West Germany. 

49 089/463080,463089. TELEX 05213883 ABLE D. 

DEC, UN I BUS, VAX and PDF are trademarks of Digital Equipment Corporation. 
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WORD-11. 

The Word Processing System 

Vital For VAX. 


////// I 
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The Unabridged Addition. 


No matter how many additions you’ve made 
to your VAX,™ it won’t be complete without 
WORD-11.™ It’s the sophisticated word processing 
system designed to help you use all the other 
information you’ve stored. With features like 
list processing, built-in dictionaries for spelling 
error detection, automatic table of contents and 
footnoting that make report writing a snap. 

WORD-11 runs concurrently with data 
processing on multiple terminals. It’s easy to use. 
And it’s been up and running in hundreds of 
installations all over the world for years. 

WORD-11 is easy to install and operate. It’s 


cost effective. And it’s supported by a dedicated 
team of experienced specialists. It could be the 
most important addition you make to your VAX 
installation. For details. Call, (714) 993-4160. 

WORD-11 is also available for Digital’s 
RSX-11M,™ RSX-11M PLUS™ and RSTS/E™ 
operating systems. 



Data Processing Design, Inc. 

VJtHOOZfO mm coMPuuBoei»«uioe 


CORPORATE OFFICE 
181 W. Orangethorpe, Suite F 
Placentia, CA 92670 
714-993-4160 Telex 182-278 


NY OFFICE WASHINGTON DC OFFICE 

420 l^xington Avenue, Suite633 4520East- West Highway, Suite550 

New York, NY 10170 Bethesda, MD20814 

212-687-0104 301-657-4098 


WORD-11 is a trademark of Data Processing Design, Inc. 

VAX, RSX-IIU, RSX-IIM PL US. and RSTS/E are trademarks, and remaining titles are products or trademarks of Digital Equipment Corporation. 
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